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Características Técnicas 

• Linguagem BASIC 

• 10 Kbytes de ROM. 

• 16 ou 48 Kbytes de memória 
RAM 

• 40 teclas e 160 funções. 

• Gravação de programas em 
fita cassete comum 

• Input e Output de dados 

• Vídeo: aparelhos de TV B&P 
ou colorido. 

• Funções especiais 
HIGH-SPEED. 

• Som Opcional. 

• Joystick, impressora. 

Preço de lançamento: 

CrS 198.850,00 (16K) 

Cr$ 269.850,00 (48 K) 

(Preço sujeito a alteração) 
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Editorial 


É extremamente embaraçoso come¬ 
çar um editorial com um pedido de descul¬ 
pas, mas ele se faz necessário por dois 
motivos. Inicialmente o atraso do número 
1 em relação ao prazo previsto por oca¬ 
sião do lançamento do número 0 

Uma sér/e de dificuldades burocráti¬ 
cas aparentemente irrelevantes nos fize¬ 
ram passar por uma situação tip/ca dos 
pesadelos: correr, correr, sem sair do lu¬ 
gar. 

Fehzmente já entramos no r/tmõ nor¬ 
mal e a periodicidade mensal será manti¬ 
da, com o máximo de pontualidade. 

Em segundo lugar, o atraso da fita 
brinde. Algumas dificuldades na produção 
nos fizeram optar por uma maior demora 
em troca de uma melhor qualidade no pro¬ 
duto a ser enviado para nossos assinan¬ 
tes. 

Além das desculpas, com este nú¬ 
mero estamos atendendo a uma série de 
solicitações dos nossos leitores, a principal 
delas referente ao "vo/ume" da revista, 
cuja tendência daqui para frente é crescer 
cada vez mais Começamos neste núme¬ 
ro um curso de linguagem de máquina 
que permitirá, a partir do próximo número, 
a publicação de programas especiais nes¬ 
ta linguagem. 

Finalmente, Queremos agradecer a 
confiança que uma multidão de novos as¬ 
sinantes depositou em nós, permitindo as¬ 
sim a elaboração de uma revista que dese¬ 
jamos cada vez melhor e cada vez mais 
útil. 
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CARTA DOS 
LEITORES 



Prezados Senhores, 

Achei interessante a idéia de V.Sas., em lançar uma 
revista voltada exclusivamente para o TK-82. Espero que 
saibam levar a publicação a um bom caminho e fujam 
de "bater na mesma tecla", muito comum em outras re¬ 
vistas do gênero. Boa sorte então! 

Sobre a assinatura, tenho algumas dúvidas. Sou pos¬ 
suidor de um TK, com expansão para 16K, que me aju¬ 
da muito no curso que estou terminando de Engenharia 
Eletrônica. Não uso muito seus recursos de software. 
Procuro aprender mais e aplicar o que aprendi nas áreas 
de software básico e hardware. Comparando o preço da 
assinatura pretendido por V.Sas., com o preço de outras 
publicações, percebe-se boa diferença. Talvez devido ao 
'brinde'. Não estou interessado na fita com programas. 
A assinatura sai no mesmo preço? Fica como sugestão o 
brinde opcional. Outra dúvida: O mercado de micros es¬ 
tá em constante mudança. Hoje já vem o TK85 para 
substituir o TK82-C. Em breve, virão melhores micros. 
E a revista? Como fica? Acompanha a evolução, ou fica 
fiel aos antigos possuidores do TK? Talvez as duas 
coisas, mas até quando? 

Luis Fernando Neves de Pinho 

Prezado Luis, 

Vamos esclarecer suas dúvidas: 

1) Ê impossível comparar o preço da assinatura de 
MICfíOHOBBY com o de outras publicações do gênero, 
pois não existem outras publicações assim no Brasil. 
MICfíOHOBBY é uma revista para usuários do TK, man¬ 
tida pelas assinaturas destes mesmos usuários. 

Você não pode comparar seu custo com o de revistas 
que vendem 30%, 40% ou até 50% de seu espaço para 
anúncios. Se você comparar então o grau de utilidade de 
MICfíOHOBBY para quem tem um TK, você verá que 
só no número zero, reduzido e promocional há mais 
coisas para o TK do que em todas as outras revistas jun¬ 
tas. 
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2) O brinde é um presente nosso e não altera o preço da 
assinatura. Consequentemente, o aconselhamos a passá- 
lo para algum amigo que ficará muito agradecido. 

3) O TK85 não veio para substituir o TK82 pois situa-se 
em outra faixa de mercado. Como eles usam a mesma ló¬ 
gica, seus softwares são compatíveis, portanto a revista é 
escrita para os usuários dos dois TKs e de todos os even¬ 
tuais TK que venham a surgir. 

4) Se a revista sentir a necessidade de atender outros mi¬ 
cros certamente continuará também fiel aos possuidores 
do TK82 pois foi para eles que ela foi criada. Este é um 
compromisso que assumimos e vamos manter. Já recebe¬ 
mos por exemplo, solicitações para abrir um suplemento 
que atende computadores com lógica APPLE. A idéia 
está sendo estudada, mas fique tranquilo com uma coisa: 
qualquer outro computador que seja atendido por 
MICfíOHOBBY será algo A MAIS que o usuário do TK 
estará recebendo, sem roubar nenhum espaço a ele dedi¬ 
cado. 


Prezados Senhores, 

Recebi o número 0 e fiquei impressionado com o óti¬ 
mo nível da revista. Ela está muito bem bolada. Faltava 
algo que unisse todos os possuidores do TK e similares. 
Vocês acertaram na mosca. 

Eu já possuia contato com programação pois possuo 
uma calculadora HP-41CV desde o corrleço do ano pas¬ 
sado. Em outubro me motivei a comprar um micro e 
optei pelo TK, pela simplicidade e preço reduzido. 
Aprender a linguagem BASIC não foi muito difícil (é 
uma questão de tempo). Não possuo por enquanto ne¬ 
nhum tipo de acessório. Possuo uma série de programas 
(principalmente jogos) feitos por mim. Muitas modifi¬ 
cações podem ser feitas para melhorar os programas. 
Pretendo remeter-lhes mensalmente um bom programa 
ou uma colaboração. Inicialmente mando este JOGO 
DA FORCA que ao meu ver ficou muito melhor do que 
muitos (de 2K) que já vi. Contem com meus sinceros 
votos de felicidade e BOA SORTE. 

Armando de Toledo Filho 

Caro Armando, 

Antes de mais nada, obrigado pelos votos de BOA 
SOfíTE e pela sua oferta de colaboração (veja matéria 
"Como colaborar com MICfíOHOBBY" na pág. 38 ). 

Com relação ao jogo de forca, ele foi analisado pelo pes¬ 
soal da redação e você está de parabéns: o programa é 
ótimo. Infelizmente não vamos publicá-lo pois quase to¬ 
das as outras revistas do ramo já publicaram vários "JO¬ 
GO DA FOfíCA", "SENHA" e similares. Apesar disto, 
seu programa pode ser aproveitado: porque não inventa 
ou aperfeiçoa mais alguns jogos e produz uma fita de jo¬ 
gos para 2K? Você poderia até vender esta fita para inte¬ 
ressados. Para isto abrimos um espaço gratuito de peque¬ 
nos anúncios (veja pág. 39 ). Desejamos uma boa sorte 
para você também e continue enviando colaborações. 


_ 






















CARTA DOS LEITORES 


Continuação... 


Prezados senhores, 

Possuo um TK82-C há pouco tempo. Entre os progra¬ 
mas que comprei já prontos, um deles (MONSTRO DAS 
TREVAS) não carrega e se perde ao chegar no final. 
Gostaria de saber se existe algum '"macete" para carregar 
programas como este, que aparentemente estão com de¬ 
feito. 

Sérgio Luis de Oliveira 

Prezado Sérgio, 

Quando isto acontecer tente 3 coisas nesta ordem: 

1) Limpe a cabeça de gravação do seu gravador antes de 
tentar o LOAD, ajustando o controle de volume e tona- 
Iidade, até obter um som o mais estridente possível. 
Teste antes com um programa mais curto que entre e 
ouça o som produzido, tentando depois reproduzir a 
mesma altura e timbre no programa que lhe interessa. 

2) Tente utilizar outro gravador com os mesmos cuida¬ 
dos do item 1. 

3) Se os itens 1 e 2 não funcionaram, provavelmente a 
fita está com defeito. Envie-a para a MICROSOFT, com 
uma carta explicando o problema e o pessoal mandará 
para você uma fita novinha. 

Prezados Senhores, 

Muito oportuno o lançamento de uma revista dedica¬ 
da ao TK. Já se tornava cansativo comprar as revistas es¬ 
pecializadas com "dicas quentes" sobre dezenas de mi¬ 
crocomputadores, exceto o TK-82. 

Agora que vocês se anteciparam nesse negócio, aqui 
vão algumas sugestões: 

a) Manter a mesma linha de todas as revistas do gênero, 
ou seja, divulgar programinhas sem graça. Isso satisfaz a 
maioria. 

b) Promover os programas "quentes" mesmo que isso 
implique em gastar mais papel. 

c) Divulgar, com espírito de formação, conhecimentos 
básicos, tais como os conceitos de "variável" e aritméti¬ 
ca com números hexadecimais. 

d) Fornecer dicas realmente quentes de como, por exem¬ 
plo, movimentar desenhos ou informações no vídeo sem 
usar o comando PRINT, mas definindo diversas áreas 
dentro do programa BASIC e dando vários POKES nos 
endereços do D FIL E (16396 e 16397). 

Finalizando a presente, gostaria de manifestar o meu 
interesse em colaborar com vocês, pois, há muito desde 
1968, emprego computadores em meus serviços e creio 
que na experiência obtida tenha muitas idéias que serão 
úteis para seus leitores. 

Roberto Massaru Watanabe 


Caro Roberto, 

Agradecemos suas sugestões e seu interesse em cola¬ 
borar com nossa revista. Esperamos ter, nos próximos 
números muitos artigos e programas com sua assinatura 
(veja "Como colaborar com MICROHOBBY", pág.38). 

Com relação às suas sugestões, alguns comentários: 

A) Vamos realmente publicar programinhas "fáceis" 
(que você chamou de "sem graça") pois uma considerá¬ 
vel fração de nossos assinantes é constituída de crianças 
e principiantes. Muitos não tem expansão de memória, 
mas têm o direito de se divertir aprendendo. Num curso 
para crianças de 8 a 10anos, realizado no NÚCLEO DE 
ORIENTAÇÃO DE ESTUDOS, o programa BOLICHE, 
publicado no número 0, provocou muito entusiasmo. 
As crianças descobriram sozinhas que alterando o 
"LOOP" 

155 FOR M = 1 TO 8 

para: 

155 FOR M = 1 TO 20 
passavam a ter direito a mais bolas ! 


Também sozinhas descobriram que eliminando as li¬ 
nhas: 

195 UNPLOT A, B 
199 UNPLOT A, B 


o programa passava a "desenhar foguetes"\ Foi muito 
gratificante observar o resultado de um programinha 
"fácil" publicado na nossa revista. 

B) Vamos gastar muito, mas muito papel justamente pa¬ 
ra publicar os programas "quentes". Se o leitor passar 
todos os programas de 2 números de nossa revista para 
fitas, terá uma quantidade de material cujo preço, no 
mercado, ultrapassa de muito o preço de uma assinatura 
anual (12 números). 

C) A filosofia básica que norteia nossa publicação é 
muito mais "didática" do que "jornalística". E um dos 
nossos principais objetivos imprimir a esta publicação o 
"espírito de formação" que você propõe em sua carta. 
Como você pode notar, a partir deste número, além de 
continuarmos nosso curso de BAS/C-TK para principian¬ 
tes, estamos iniciando um curso de ASSEMBL Y para o 
TK. 

D) As dicas "quentes" já estão começando a surgir. Por 
coincidência, neste número temos uma dica que escla¬ 
rece justamente um dos usos da variável DF/LE que 
você cita em sua carta. 

Muito mais dicas serão fornecidas nos próximos nú¬ 
meros mostrando aos leitores as inúmeras e insuspeitas 
possibilidades desta pequena maravilha que é o seu TK. 

% 
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A GRAVACAO 
DOS 

PROG RAMAS 

Nilson D. Martello 


Após muitos anos criticando os aparelhos de alta- 
fidelidade em algumas revistas brasileiras e enfrentando 
preconceitos, "rumores" e lendas fantásticas sobre Som 
e o "software" que o acompanha, chego a este novo 
campo dos computadores pessoais. 

Leigo na matéria, alfabetizando-me em Basic, levando 
"surras" homéricas do meu TK, também começo a en¬ 
contrar pessoas interessadíssimas; atendimento cuidado¬ 
so e gentil por parte de vendedores do lojas, represen¬ 
tantes da Microdigital; de firmas particulares que comer¬ 
ciam micros ou programas, etc, a ponto de me per¬ 
guntar: 

— Ué?! O que está acontecendo? 

De outro lado, também nesta área começo a encon¬ 
trar os rumores e lendas fantásticas; exemplo . . . "Um 
gravador cassete, quanto mais barato melhor para gra¬ 
var seu programa". 

Daí a me atrever — eu, novato em micro — a trazer 
alguns princípios básicos aprendidos durante os anos em 
eletrônica de Som, para esta área. 



O gravador 

Não é verdade que o gravador "mais barato" seja o 
melhor. E nem poderia ser. O "guincho" gravado no cas¬ 
sete — as informações do micro - é rico em sons mé¬ 
dio-agudos. Os próprios fabricantes insistem que, em 
tendo o aparelho um controle de tonalidade, seja colo¬ 
cado na posição de mais agudo. E é aqui que os micros 
saem-se mal: gravadores de baixa qualidade têm sua res¬ 
posta de agudos muito pobres. 0 mesmo se dá com bons 
gravadores, usados (geralmente monoaurais) há longo 
tempo, que o usuário consegue comprar por bom preço. 
Estes gravadores já terão rodado muitos quilômetros de 
fita, desgastando os cabeçotes de gravação/reprodução, 
o que influencia precisamente mais na gama dos médio- 
agudos. 

Por outro lado, gravadores "mais baratos" possuem 


limitações mecânicas que logo conduzem à lata de lixo. 
Se as flutuações desses sistemas mais pobres tornam tais 
gravadores imprestáveis para a reprodução de música, o 
mesmo não é tão grave quanto aos sinais digitais. Uma 
certa flutuação (wow e flutter) ainda é suportada galhar¬ 
damente nos momentos de LOAD e SAVE Porém as 
funções de rebobinamento rápido (para a esquerda ou 
direita), além da possível interrupção do movimento da 
fita com cassetes semi-defeituosas, tornam o aparelho de 
baixa confiabilidade, isto é, dor de cabeça para seu 
usuário. 

Ainda mais, os aparelhos de baixo preço no geral pos¬ 
suem marcas estranhíssimas, como "Claudicorder", 
"Somissuko" ou "Mankassom", fabricados na Konxin- 
china, Taboão da Serra ou Trás-dos-Montes. Quando 
chega o momento de consertá-lo e substituir um compo¬ 
nente defeituoso, o técnico será obrigado a "improvi¬ 
sar". Resumo: mais dinheiro jogado fora. 

Por fim, aparelhos baratos não possuem contador nu¬ 
mérico do andamento da fita. Para quem não sabe, tais 
contadores são de baixa precisão e, geralmente, contam 
as voltas da bobina, dentro do cassete. Por isso raras ve¬ 
zes a leitura é válida entre aparelhos diferentes De qual¬ 
quer forma, quando gravamos diversos programas em 
uma mesma fita cassete, torna-se quase impossível loca¬ 
lizar o programa específico sem o auxílio dos numero- 
zinhos. 


Sugestões: 

1) Compre um gravador de marca conhecida e respeita¬ 
da, ainda que não esteja em condições 100%. Uma vez 
que o aparelho tenha representante no país — ou seja 
aqui fabricado por indústria de respeito, que mantenha 
eficiente serviço de manutenção — tudo bem. 

2) Mande examiná-lo antes de começar a empregá-lo. 
O mínimo que se pede é uma boa limpeza e lubrifica¬ 
ção, com desmagnetização dos cabeçotes e guias me¬ 
tálicas, assim como substituição dos potendômetros 
(controles de volumes, de tom) defeituosos ou ruido¬ 
sos. Aliás, manda o mínimo de cuidado que ao menos 
uma vez por mês os cabeçotes sejam limpos com álcool 
metílico e desmagnetizados. Se os cabeçotes apresen¬ 
tarem desgastes, mande substituí-los. Não custam assim 
tão caros e prestarão serviço por longo tempo, se bem 
cuidados. Lembre-se: cabeçotes desgastados gravam e 
reproduzem muito mal os sons agudos. 

3) Prefira uma boa fonte de alimentação (ou conversor 
AC/DC, ou Adaptador); o preço das baterias não anda 
brincadeira e, a menos que você empregue baterias al¬ 
calinas ou de mercúrio, verá o gravador "arrastando 
a fita com a língua de fora", após pouco tempo de uso. 
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A GRAVAÇÃO DOS 
PROGRAMAS 

Continuação... 


A fita cassete 

Não vamos citar nomes para evitar polêmicas desne¬ 
cessárias. Porém algumas fitas nacionais - mesmo de 
certo renome e preço — desprendem o material magne- 
tizável que passa a sujar os cabeçotes. A reprodução que 
mais sofre são os médio-agudos, com frequência insu¬ 
portável. Cabe aqui a consideração feita em reprodução 
de alta-fidelidade: "Se vale a pena ser gravado, vale a 
pena ser BEM gravado". 

Empregue fitas de renome, de baixa duração (nunca 
as de 90 ou 120 minutos) e preserve-as com carinho. Na¬ 
da de proximidades de fontes magnetizadoras (transfor¬ 
madores, cinescópio de TV, etc); no mínimo a 30 cm de 
distância, o que assegurará que os sinais gravados não se 
alterarão. O calor, a umidade e a poeira (porta-luvas de 
carro, por exemplo) são os próximos inimigos a serem 
evitados. Não se esqueça de que o próprio micro costu¬ 
ma aquecer; nada de espantar, é claro, porém não co¬ 
mece a testar o ponto de fusão do plástico empregado 
na cassete! Da mesma maneira, não toque com os de¬ 
dos na fita; você não sabe como nossa pele é gordurosa! 
Se houver algum acidente que o obrigue a desmontar o 
cassete, ou emendar a fita, manuseie-a com luvas de al¬ 
godão. A fita e os cabeçotes agradecerão o cuidado. 

Nível de gravação 

Os indicadores de nível de gravação — ou VU-meter — 
são um auxiliar precário no julgamento do nível de gra¬ 
vação. A última palavra será dada pelo seu micro e a 
imagem reproduzida no monitor ou TV falarão mais 
"alto". . . A limitação dos VU-meter explica-se facil¬ 
mente: são um tanto "totalizadores", ignorando se o 
sinal mais intenso está na gama dos médios, agudos ou 
graves. Isto é. . . isso na melhor das hipóteses, quando 
foram calibrados na fábrica. Comparando equipamento 
similar, e, por vezes, até modelos idênticos, nacionais ou 
importados, já se pode perceber uma total discrepância 
na indicação dos diferentes VU-meters. E claro que não 
deveria acontecer, mas acontece . . . 

Pelo mesmo motivo, as gravações em "Automático" 
nem sempre funcionam. Dependendo do circuito ele¬ 
trônico empregado num específico gravador, da fita em¬ 
pregada, e finalmente das neuroses do seu micro, o 
LOAD poderá parecer a contento numa situação e inú¬ 
til em outra. O mais prático é digitar programas curtos 
e testar os melhores níveis de gravação (SAVE) e repro¬ 
dução (LOAD). 

Conectores 

Já presenciamos um profissional rosnar contra o cabo 
conector entre o computador e o gravador cassete: 

— Está com mau contato! 


Se há tal desconfiança, leve o cabo a qualquer técnico 
de eletrônica para ser consertado; não deixe as coisas 
assim! Ou compre um par de cabos extras, para não ficar 
parado à espera do conserto. De todos os soft, os cabos 
são de longe os mais baratos. 

Em alta-fidelidade, em situações quando trabalhamos 
com sinais minúsculos, empregamos até contatos banha¬ 
dos a ouro para os conectores. Isto não se aplica aos mi¬ 
cros. No entanto a boa qualidade dos contatos é impres¬ 
cindível para se evitar oxidação, principalmente para 
aqueles que vivem à beira-mar ou em locais de alta umi¬ 
dade relativa. Gaste um pouco mais num bom cabo com 
conectores bem acabados e evitará as incertezas de um 
mau contato intermitente. 

TV à Cores 

"O micro estraga o TV à cores" — é outra falácia que 
já ouvi algumas vezes, em locais diferentes. 

O sintonizador de seu TV não tem a menor idéia se 
está recebendo um sinal direto do transmissor de TV do 
canal 2, ou do gerador de seu vídeo-cassete, ou de seu 
micro (supondo que essas fontes estejam funcionando 
corretamente, é claro). O que salta aos olhos - ou aos 
bolsos, melhor dito — é que, por menos tempo que você 
empregue o computador, estará desgastando o tubo de 
imagem do televisor. Ora, o componente mais caro é 
precisamente o tubo de imagens. Em se tratando de um 
modelo à cores, custará de três a quatro vezes o preço 
de um tubo branco e preto de tamanho similar. A mão- 
de-obra para a troca é proporcionalmente mais cara tam¬ 
bém. Além disso, imagine se, por azar, coincide de o 
aparelho mostrar defeito na hora da telenovela precisa¬ 
mente logo depois que você acabou de empregá-lo com 
o micro? 

- E as Crianças? 

— Quais crianças? - perguntará o leitor, já alarmado. 

Pois é. . . as crianças da casa — filhos, irmãos menores, 
priminhos de fins de semana — simplesmente se encan¬ 
tam com o micro. E a ordem: "Não ponha a mão aí!" 

. . . além de antipática, seria ineficiente. Aliás, mais do 
que antipática, estaríamos sendo anti-pedagógicos. De¬ 
pendendo da idade da criança, podemos ensinar desde o 
manuseio de simples jogos até princípios de manipula¬ 
ção do teclado. E simplesmente inacreditável a veloci¬ 
dade de aprendizado de crianças de seis, sete ou oito 
anos. Também é imperioso que nos convençamos de que 
o micro veio para ficar também na vida das crianças. Se 
gastarmos duas horas em cima de um programa dedicado 
a nossos filhos ou irmãos menores, propondo-lhes 
problemas de aritmética, história ou conhecimentos ge¬ 
rais, poderemos estar empregando as melhores duas ho¬ 
ras de nossa vida. 

Mas isso já é outra conversa que pouco tem a ver com 
o Som para os Micros. Ficam aí as sugestões que, espero, 
sejam de utilidades para você. 


MICROHOBBV 5 










IF...THEN...ELSE 
para o TK 

Igor Sartoni 

Quantas vezes, você viu um programa interessante e 
não pode rodá-lo em seu computador, por um problema 
ou outro? Quantas vezes, isso não foi possível, porque, 
apesar do programa estar escrito em BASIC, ele possui 
as instruções que não podiam ser usadas no TK? 

Isso ocorre, porque, embora o BASIC tenha se torna¬ 
do praticamente um padrão como linguagem de compu¬ 
tação em microcomputadores pessoais, podemos encon¬ 
trar certas peculiaridades inerentes a cada modelo, o que 
torna, muitas vezes, difícil transpor um programa de um 
computador para outro. 

Certas instruções aparecem com outra sintaxe e o que 
é aceito por um computador, não é aceito por outro. 
Outras surgem em um e não no outro, como é o nosso 
caso: o TK-82 possui a instrução IF THEN, mas não 
possui seu complemento, a condicional ELSE. 

IF...THEN...ELSE 

A instrução IF (condição) THEN (função ou opera¬ 
ção) é comum a todos os computadores que usam 
BASIC. No entanto, apenas alguns possuem a condicio¬ 
nal ELSE (função ou operação). 

Esta condição diz que, se a condição que segue a con¬ 
dicional THEN não for satisfeita, uma outra operação 
ou função deve ser executada. Um exemplo pode deixar 
mais claro. Observe a linha de programa a seguir: 

100 IF X = 0 THEN LET Y = 0 ELSE 
PRINT "X = X 

Nesta linha de programa, se (IF) a primeira condição 
for satisfeita (X = 0), então (THEN) realizaremos a ope¬ 
ração que lhe segue (LET Y = 0), senão (ELSE), realiza¬ 
remos a outra operação (PRINT "X= X). 

Computadores como o TK-82 ou o TK-85 não pos¬ 
suem esta condicional. Como incluí-la no seu compu¬ 
tador? Examinemos o que ela faz. Pela descrição que fi¬ 
zemos anteriormente, vimos que ela estabelece uma con¬ 
dição oposta àquela determinada pela condicional IF 
A primeira idéia que nos vem à mente é transformar a 
condicional ELSE numa linha de programa que expres¬ 
se uma condição oposta à determinada pela condicional 
IF. No exemplo que mostramos, a linha de programa 
seria transformada em: 

100 IF X = 0 THEN LET Y = 0 

110 IF X < > 0 THEN PRINT "X="; X 


A solução foi facilmente estabelecida, porque a con¬ 
dição estabelecida na condicional IF era a igualdade, 
cujo oposto é a desigualdade (< >). E se a condição fosse 
outra, como, por exemplo, maior ou igual a (>=)? Neste 
caso temos duas opções. A primeira delas é usar a fun¬ 
ção lógica NOT Esta função age como um inversor, tor¬ 
nando a lógica da condição invertida: se antes era verda¬ 
deira, ela torna-se falsa e vice-versa. Deste modo a linha: 

100 IF X > = 0 THEN LET Y = 0 ELSE 
PRINT X="; X 

Poderia ser traduzida como: 

100 IF X> = 0 THEN LET Y = 0 

110 IF NOT X > = 0 THEN PRINT "X= X 

A segunda opção, é usar o sinal complementar do si¬ 
nal da condição. Para entendermos o que isso significa, 
vamos escolher uma sequência de números naturais em 
ordem crescente, como, por exemplo: 

01 23456789 

Poderemos separar uma parte desta sequência, apli¬ 
cando uma condição a um dos seus elementos. Por 
exemplo, se desejarmos uma sequência formada por: 

6 7 8 9 

Poderemos dizer que tomamos todos os números 
maiores ou iguais a seis, ou seja, aplicamos a condição 
"maior ou igual a" é a condição que fornece a parte des¬ 
prezada da sequência. No nosso exemplo, são os núme¬ 
ros menores que 6. Assim, a condição "menor que" é a 
complementar a "maior ou igual a". 

A tabela a seguir fornece todas as condições com seu 
respectivo símbolo e complemento: 


Condição 

Símbolo 

Complemento 

Símbolo 

maior que 

> 

menor ou igual a 

< = 

menor que 

< 

maior ou igual a 

> = 

maior ou igual a 

> = 

menor que 

< 

menor ou igual a 

< = 

maior que 

> 

igual a 

= 

diferente de 

<> 

diferente de 

<> 

igual a 

= 


Assim, a linha do exemplo ficaria: 


6 MICROHOBBY 

























IF... THEN... ELSE 
para o TK 

Continuação... 


100 IF X > = 0 THEN LET Y = 0 
110 IF X< 0 THEN PRINT “X="; X 

Estas duas soluções resolveram o problema. Entretan¬ 
to, existem mais duas soluções. Estas soluções, embora 
necessitem um número de linhas maior que as anterio¬ 
res, evitam o aparecimento de duas condicionais em se¬ 
guida, usando uma característica da própria instrução 
IF/THEN Nesta instrução, quando a condição não é sa¬ 
tisfeita, o programa executa a linha que vem imediata¬ 
mente a seguir. E se colocarmos nesta linha a função ou 
operação designada pela condicional ELSE? Isto não se¬ 
ria uma boa solução porque, se fizermos apenas esta mo¬ 
dificação, a função que segue o ELSE será executada em 
qualquer condição, mas o que desejamos é que ela seja 
executada se, e somente se, a condição estabelecida pela 
condicional IF não for satisfeita. Isto pode ser evitado se 
"saltarmos" esta condição, por meio de uma instrução 
GOTO Assim, nosso exemplo ficará: 

100 IF X = 0 THEN GOTO 130 
110 PRINT "X= ";X 
120 GOTO 140 
130 LET Y = 0 

140 ... (sequência do programa) 

A linha 120 é necessária pelo mesmo motivo que usa¬ 
mos no salto da linha 100: desejamos que a função ou 
operação designada pela instrução IF original,seja exe¬ 
cutada apenas se a condição for satisfeita. Se ela for 
omitida isto não ocorre. 

A outra solução é semelhante a esta, só que usa uma 
lógica invertida para fazer a comparação, ou seja, é feita 
primeiro a comparação para se realizar a função designa¬ 
da pela condicional ELSE. Nosso exemplo ficaria assim: 


100 IF XO 0 THEN GOTO 130 

110 LET Y = 0 

120 GOTO 140 

130 PRINT "X= ";X 

140 . . . (sequência de programa) 

Outras Soluções 

As soluções apresentadas neste artigo são de caráter 
genérico e devem funcionar em quaisquer circunstâncias, 
respeitadas as limitações de seu micro. Todavia, se você 
dispuser do diagrama em blocos do programa original 
que você deseja transpor para o TK, você pode, com um 
pouco de habilidade, modificar sua lógica de modo a evi¬ 
tar o uso da instrução IF THEN ELSE 


A desvantagem de uma solução obtida desta forma é 
que ela está vinculada a um caso particular e só pode ser 
obtida se você tiver em mãos o diagrama em blocos, ou 
se você conhecer suficientemente a linguagem BASIC, a 
ponto de conseguir fazer esta análise sem auxílio do dia¬ 
grama de blocos. 

As outras soluções, por outro lado, só dependem de 
você localizar onde aparece a condicional ELSE e aplicar 
uma das soluções propostas. Só surgirão problemas, se 
vários IF THEN ELSE . estiverem presentes 
na mesma linha. Mas isso será assunto de um próximo 
artigo. 

Programa Exemplo 

Não convém ficar só na teoria, tente verificar o que 
você aprendeu com o auxilio deste exemplo. Suponha' 
que você tem diante de si o seguinte programa, feito pa¬ 
ra um computador, cuja única diferença entre ele e o 
seu, seja a presença da instrução IF/THEN/ELSE 

10 REM EQUAÇÃO DE SEGUNDO GRAU 
20 PRINT "A= ";A 
30 INPUT A 
40 PRINT "B = 

50 INPUT B 
60 PRINT "C= 

70 INPUT C 

80 LET DELTA = "B**2- 4*A*C 
90 REM A PRÓXIMA INSTRUÇÃO CON¬ 
TEM A CONDICIONAL ELSE 

100 IF DELTA >= 0 THEN LET D= SQR 
(DELTA) ELSE STOP 

110 LET XI = (—1 * B + D)/(2* A) 

120 LET X2= (-1 * B-D)/(2* A) 

130 PRINT "AS RAIZES DA EQUAÇÃO 

SÃO:" 

140 PRINT "XI = ", XI, "X2= ", X2 

Certamente você deve conhecer outros algoritmos pa¬ 
ra resolver a equação de segundo grau por computador 
melhores do que este, mas o programa que acabamos de 
mostrar, serve apenas para ilustrar o que dissemos sobre 
a instrução IF THEN ELSE 

Solução 

Mostraremos apenas uma das soluções. As outras fi¬ 
cam por sua conta. A linha que você vai ter de modifi¬ 
car é a linha 100: 

100 IF DELTA >= 0 THEN LET D= SQR 
(DELTA) ELSE STOP 

Vamos dividi-la em duas: uma, que contém apenas da 
condicional IF e da função que segue ao THEN 

100 IF DELTA >= 0 THE LET D = SQR 

(DELTA) 
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IF... THEN... ELSE 
para o TK 

Continuação... 

Outra, formada por uma condicional que vai verificar 
uma condição oposta à da condicional IF da nova linha 
100. Temos duas opções: a função NOT e a condição 
complementar. Usaremos a segunda opção. A condição 
complementar de "maior ou igual a", de acordo com a 
tabela, é "menor que". Assim, devemos acrescentar a 
seguinte linha: 

105 IF DELTA < 0 THEN STOP 

Rode o programa em seu computador, testando-o 
com vários valores de A, B e C. Verifique também, as 
outras soluções, vendo inclusive, se não existe uma outra 
maneira de se elaborar o programa sem recorrer à instru¬ 


DESGfílLANDO 

"FLAGS" 

Flavio Rossini 


Temos recebido cartas de muitos leitores pedindo su¬ 
gestões de como conseguir detectar erros em programas 
muito complexos e cheios de desvios, onde fica difícil 
seguir passo a passo o caminho feito pelo programa. 
Podemos responder estas perguntas com um exemplo 
bastante elucidativo: 


imagine uma linha de trens bem intrincada com muitos 
desvios. 



ção ELSE. O diagrama de blocos pode ser facilmente le¬ 
vantado a partir da listagem, visto que é um programa 
bastante simples. 

Conclusão 

Com o que você aprendeu, tente verificar se alguns 
dos programas publicados em outras revistas para outros 
computadores podem, com auxílio destes "macetes", 
ser rodados no seu TK. Se surgirem dificuldades em re¬ 
lação a estas ou outras instruções, escreva-nos contando 
exatamente o que lhe aconteceu, citando o computador 
para o qual foi destinado o programa, a instrução que 
lhe causou problemas, e uma cópia da listagem do pro¬ 
grama que você tentou "traduzir" para seu computador. 
Este material servirá como ponto de partida para futuros 
artigos e, desde já, lhe agradecemos por qualquer cola¬ 
boração prestada. 



Suponha que um trem irá passar por uma dada região 
e você gostaria de saber qual o caminho percorrido pelo 
trem. Mas, por algum motivo, você não poderá estar lá 
para ver o trem passar. Imagine então que para cada des¬ 
vio, haja um mecanismo que levanta uma bandeira se o 
trem passar por lá. Assim, se inicialmente todas as ban¬ 
deiras estiverem abaixadas, basta verificar QUAIS estão 
levantadas após o trem passar para saber o caminho per¬ 
corrido pelo programa. Observe o diagrama de blocos ge¬ 
néricos onde temos 5 desvios. 




























DESGRILANDO 

"FLAGS” 


Continuação... 


No bloco de iniciação (INI), basta acrescentar 
FLAGS abaixadas, o que pode ser feito usando a con¬ 
venção de 0 (zero) para FLAG abaixada e 1 (um) para 
levantada; desse modo, no bloco INI basta colocar: 


DIM F (10) 

FOR I = 1 TO 10 

LET F (I) = 0 

NEXT I 


Ou seja, 10 FLAGS, duas para cada desvio. 

Feito isso, basta colocar no início de cada bloco de 
saída dos desvios uma instrução para "levantar" a ban¬ 
deira: 


início do bloco 1 
início do bloco 2 


LET F (1) = 1 
LET F (2) = 1 


início do bloco 9 =» LET F (9) = 1 
início do bloco 10=> LET F (10) = 1 

Após executar o programa, basta verificar o estado 
dos FLAGS: 

FOR I = 0 TO 9 
SCROLL 

PRINT "FLAG" ; I ; "00" ; F (I) 

NEXT I 

Isto deverá ajudá-lo a detectar alguns erros difíceis 
de se encontrar nos seus programas "intrincados". 

In another world we could stand on top of the 
mountain with our flag unforled . . . 

(Paul McCartney. 1982) 




FITA DO MÊS 

SICOM 


O programa SICOM-16K é produzido pela 
MICROSOFT e pode ser rodado em qualquer compu¬ 
tador com BASIC - TK dotado de 16K de RAM. 

Quem tiver um TK82 com expansão 64K ou um 
TK85 de 48K, deve tomar cuidado: como o programa 
foi concebido para 16K e um excesso de memória dispo¬ 
nível, cria um "grilo": o computador não aceita dados 
novos. A solução, enquanto a MICROSOFT não lançar 
um SICOM especial para estes casos, é enganar o com¬ 
putador. Para isto basta alterar o valor da variável do sis¬ 
tema RTP (RAM TOP) fazendo: 


POKE 16389, 192 

NEW 


(NEW UNE) 
(NEW LINE) 


Após este procedimento o computador "pensa" que 
tem apenas 32K de RAM e, ao ser carregado com o 
SICOM, passa a operar tranquilamente. 

0 SICOM é um programa versátil que pode ser visuali¬ 
zado como um fichário. Cada ficha já tem previamente 
definidos os seguintes campos: 


NOME.64 bytes no máximo 

ENDEREÇO.64 bytes no máximo 

CODIGOS DE INTERESSE ... 64 bytes no máximo 

TEXTO ADICIONAL.64 bytes no máximo 

(cada byte = 1 caractere incluindo espaços vazios) 

A quantidade de fichas armazenáveis é em função do 
número de bytes consumidos em cada uma (lembrando 
ainda que cada ficha consome 5 bytes adicionais para se¬ 
parar os campos). 

Vamos verificar então quantos bytes podem consumir 
uma ficha para uma aplicação típica, por exemplo, ca¬ 
dastro de clientes. 

Inicialmente carregamos o SICOM no computador e 
digitamos 

GOTO 1 

Nunca devemos digitar RUN, pois há uma variável 
que é apagada da memória tornando impossível a ope¬ 
ração do programa. Neste momento, aparecerá na tela 
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A FITA DO MÊS 
SICOM 


Continuação... 

o. "menu" principal do programa (fig. 1). É aconselhá¬ 
vel tirar a fita do gravador e armazená-la em lugar segu¬ 
ro, ao abrigo de campos magnéticos, etiquetando-a 
como 

"fita mestre avó" 


O computador manda agora a mensagem: 

ENTRE NL SE FITAPRONTA 

Colocamos então, o gravador na posição gravar (REC) 
e com a fita virgem já correndo, apertamos NEW UNE 
Os riscos característicos do SAVE aparecerão na tela da 
TV Após 1,5 minutos a fita mãe estará pronta. Convém 
guardá-la em lugar seguro e começar a operar as fichas. 

Vamos agora introduzir algumas fichas de assinantes 
da revista no computador. 

Digitando 9 temos o número de fichas de bytes livres 
(fig. 3): 

FICHAS 0 BYTES LIVRES = 12495 


© = INSXRP 3-EUSCR 6=PROXAPfiG 

1=RLTERR 4=XHPRIME ?=PROX.ITEM 
2=Cfir4CELR S 0--PQRHHTG.F 

9=E5TflTI5T, 


0=IN5IRR 3=BU3CR 6=PRDX. PRO 

1=RLTEPP 4=X^PRIME ?=PROX.ITEH 

2=CRNiCELR 5 = 5RUE 8=PORHfiTO : F 

_ 9 =ESTRT I3T , 

FICHPS=@ BYTES LIURES= 1S4-95 


Figura 1 

Convém agora fazer uma cópia que denominaremos: 
"fita mestre mãe" 


Figura 3 

Digitando 8, podemos escolher o formato do 
"display" na tela da TV (fig. 4). 


Digitamos 5 e o computador pergunta que nome que¬ 
remos dar ao fichário (fig. 2), mostrando em vídeo re¬ 
verso, qual item do menu está sendo ativado (no caso 
o 5). 

Vamos digitar MICROHOBBY (NEW UNE). A seguir 
data e hora. Digitamos 

20/06/83 08:30 



© = IN3IRR 3=BU5CR S^PROX» PRG 

X=hLTEPR 4- = InPRXHE 7=PROX.XTEH 
2=CRNCELR H=SPUE 8 = FOP.MRTO : F 

9=ESTP.TI5T * 


Figura 4 


ENT 


aBBgaESBafetea» 




Figura 2 


F = COMPLETO (mostra todos os campos) 

L = ETIQUETA (mostra apenas NOME e 
ENDEREÇO) 

Tanto o formato F quanto o L mostram apenas uma 
ficha de cada vez na tela. Para exemplificar, vamos digi¬ 
tar duas fichas (nos formatos F e L, uma vírgula no 
meio do campo, produz a impressão do que a segue na 
linha seguinte). Vamos escolher o formato F e digitar 
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A FITA DO MÊS 


SICOM 


Continuação... 

0 . A seguir, vamos introduzir os dados da primeira ficha 
(fig. 5). ' 

0 = IN5IRR 3 =BU5CR 5=PROX. PRG 

1 =Rl_TERR 4 = IMPRIME 7 =PROX . ITEM 

£=CRNCELR 5=5RUE 8 =F GRMRTO:F 

9=E5TRTI5T . 

X=fiLTERft 4- = IMPR1ME 7=PROX.ITEH 

2=CfiNCELR 5=5HUE 8=FORHRTO:E 

9=E5TRTI5T. 

•J05E a SDRUUS 

RU.D05 C0RU05 675 RP.71, 

90001 INDRIRTUBR GO 

UUN84- 
78.8888 

RNTONIO FERREIRR 

Figura 7 

Um rápido cálculo, permite verificar que neste ritmo 
podemos armazenar ainda umas 170 fichas. Como ca¬ 
dastro, isto já é um número considerável, especialmente 
levando-se em conta a função de busca do programa. 

No formato L as mesmas fichas teriam aspecto da 
fig. 8. 



"R.hftRGRRIDfi 4?,@9S75 BOTUCRTU C 
EB’’ 

JOSE*SDRUUS 

RU.DOS CORUO-5 875 RP.71, 

90081 INDRIhTÜBh GO 

Figura 5 

Figura 8 

Como estamos no formato F a ficha aparece completa 
com nome e endereço do assinante, data de vencimento 
da assinatura e telefone (fig. 6). Note também o efeito 

Já no formato A, 1 ou T a tela mostra uma ficha por 
linha: na primeira metade da linha, os primeiros 16 
bytes do nome e na segunda* metade, os primeiros 16 
bytes do campo selecionado: 

0 = IN5IRfl 3 =BUSCR S=PROX- PRG 

1=RLTERR irIMPRIME 7=PROX a ITEH 

2 rCRNCELR 5 =SRUE 8=FORMRTO:F 

9=ESTRTI3T. 

A = endereço 

1 = código de interesse 

T = texto adicional 

A fig. 9 mostra o display nos 3 casos. 

RNTONIO FERREIRR 

R - MRRGRRIDP. 4-7 , 

09875 BOTUCRTU CE 

MRI084. 

54-3.8768 

Qualquer erro na inserção de uma ficha, pode ser cor¬ 
rigido pelas funções: 

1 = ALTERA 

2= CANCELA 


Para procurar uma ficha basta digitar 3. Aparecerá 
um menú secundário, solicitando o campo a ser pesqui¬ 
sado: 

Figura 6 

da vírgula no campo do endereço. Vamos agora introdu¬ 
zir uma segunda ficha (fig. 7). Digitando agora 9, temos 
idéia de quantas fichas estão no arquivo e quantos bytes 
livres ainda restam: 

FICHAS = 2 BYTES LIVRES = 12347 

N = NOME A = ENDER. 

T = TEXTO 1 = INTS 

Digitando a letra correspondente, o programa pede 
para que você entre com os detalhes do campo em ques¬ 
tão. Os campos N, A e T comparam o que você digitou 
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A FITA DO MES 
SICOM 


Continuação... 


RNTONIÜ FERRtIRR K.HRRGhRIDR 4-7 > 
•J05E C 5DRUU5 RU . L>OS CORUOS S 


RNTONXO FERREXRR HRIOSi 
JOSE 1 5DRUUS JUN34. 


RNTONXO FERREIRR 543.8766 
JOSE*SDRUU5 73-8388 


Figura 9 

como detalhe "AN", serão selecionadas todas as fichas 
cujo campo N comece por AN. 

Se você está no formato F ou L aparecerá uma ficha 
por vez. Para ver a seguinte, basta digitar 


L 


6= PRÓXIMA PAGINA 


No formato A, I ou T você verá o resumo de até 12 fi¬ 
chas. Digitando 6, você verá outra lista, digitando 7, vo¬ 
cê produzirá um efeito análogo ao do SCROLL. 

A qualquer momento, você pode tirar uma cópia da 
tela, na impressora, usando a função 4. 

A busca no campo I é a mais sofisticada. Ex.: ao pedir 
detalhes, o computador compara todos os caracteres di¬ 
gitados, com todos os caracteres do campo I, indepen¬ 
dentemente de sua ordem. Todas as fichas que contém 
os caracteres indicados na busca, são selecionadas. Note, 
que isto, permite classificar cada ficha em até 64 cate¬ 
gorias diferentes. 

Mas não é só em cadastro de nomes que o SICOM re¬ 
vela sua utilidade; ele pode ser usado em qualquer tipo 


de arquivo, como por exemplo, bibliografia, agenda te¬ 
lefônica, etc. Para informações esquemáticas até umas 
500 fichas podem ser gerenciadas pelo SICOM, usando 
seu sistema de BUSCA. 

Para outras finalidades, é conveniente mexer um 
pouco no programa. O título dos campos, por exemplo, 
pode ser alterado mexendo-se nas linhas 505, 515, 
525, 535, 606 e 1315. 

Por exemplo, para preparar fichas bibliográficas, estas 
linhas poderiam ser mudadas para o indicado na figura 
10 . 


505 LET P*=*'0QG!S5aSfc?" 

510 GO 5 UB R El _ 

515 LET = 

520 GO5 UB RB 
525 LET 01M5IS 

530 G05U6 KL 
535 LET 


1005 euscR 


RNO-EDITuRR 


1315 PRINT 



Figura 10 

Convém alterar apenas os nomes dos campos sem alte¬ 
rar as letras de endereçamento para não ter que modifi¬ 
car muito profundamente o programa. 

Uma vez atualizado o arquivo, ele deve ser gravado 
com a data e a hora (função 5) em uma fita virgem. A 
cada atualização o programa deve ser transferido para fi¬ 
ta mas sem apagar o registro anterior, Desta forma qual¬ 
quer "grilo" com o último programa implica na perda 
apenas das últimas atualizações. 

Como este programa já está no mercado há um certo 
tempo, com certeza algum leitor já deve ter descoberto 
alguma utilização bem original ou algum aperfeiçoamen¬ 
to útil. Estamos à espera, portanto, de alguma colabora¬ 
ção neste sentido para podermos publicá-la num dos 
próximos números de MICROHOBBY. 
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PROGRAMA 
DO MÊS 

ANTI-MÍSSIL 



Muitos de nossos leitores possuem outros microcom¬ 
putadores que usam uma lógica compatível com a do 
TK. Alguns deles, como os primeiros modelos do 
NEZ8000 da Prológica ou ZX81 da SINCLAIR têm ape¬ 
nas 1 K de RAM. Para eles estamos publicando este pro¬ 
grama que é uma verdadeira acrobacia em termos de 
economia de memória. 

A digitação deste programa tem então duas utilidades: 
uma é o próprio programa em si, que gera um joguinho 
divertido (dentro, é óbvio, das limitações de memória). 

Um míssil (V) desce segundo uma trajetória que so¬ 
fre desvios aleatórios. Você comanda um anti-míssil 
terra-ar (+) que deve destruir o míssil. No fim do jogo 
aparece o número de mísseis destruídos. 

Para guiar seu anti-míssil, você usa as teclas: 



ou seu joystick. 

A outra utilidade é o aprendizado de alguns "tru¬ 
ques" para economizar memória. 

Ao digitar 

GOTO VAL "20" 


flNTI-MI55IL 


U 

U 

KJ 

U 

U 

U 

KJ 

KJ 

U 

KJ 

KJ 

KJ 

KJ 

K> 


-í- 


OBREM 

MIROHOBBY ©3 

1 

POR 

N=PI/PI TO URL 

2 

LET 

R=URL n 20“ 

3 

LET 

B=URL "11" 

4 

LET 

X=PI-PI 

5 

LET 

Y=B 

6 

FOR 

F = PI-PI TO URL 

7 

PLOT F.. PI-PI 

6 

NEXT F 

9 

PRXNT RT R , B; 

10 

PRINT RT X,Y;“U" 

13 

PRINT RT R,B; % * " 

15 

LET 

Z = INT (RNDtUfiL 

16 

LET 

X=X + 1 

17 

LET 

Y=Y+(Z=OPL "X" 

"0" ) 



1© 

IF 

INKEY*="6" THEN 

2 



19 

LET 

B=B + < INKEY$ = ”S 

$ = ••5* 

') 

P = P-(INKEY*="7 

20 

LET 

21 

IF 

R = X RND B=Y OR 


l 63’ 


N GOTO URL. ,, £3” 

22 GOTO URL "9” 

23 CLS 

24 IF P=X THEN NEXT N 

25 XF X=Ofit_ "22" THEN PRINT N 


ao invés de 

GOTO 20 

você está economizando 3 bytes! 
Da mesma forma, ao fazer 

X = PI / PI 

ao invés de 


X = 1 


você livra 4 bytes. 

Para se convencer disto, antes de digitar o 
SIL, digite o seguinte programinha: 


ANTI-MfS- 
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PROGRAMA DO MÊS 


ANTI-MÍSSIL 

Os primeiros modelos do NEZ8000 e do TK82-C não 

Continuação... 

1 GOTO 2 

2 PRINT PEEK 16404 + 256 * PEEK 16405 

- 16510 

Ele indica, na tela, quantos bytes de memória o pro¬ 
grama está ocupando. Anote o número indicado e mude 
a linha 1 para 

tinham SLOW Por isso, quem tentou rodar o programa 
BARÀO VERMELHO do n9 0 num destes equipamen¬ 
tos deve ter notado que não funciona, a menos que se 
coloque uma instrução: 

PAUSE 30 

após cada instrução PRINT. 

No programa ANTI-MISSIL este cuidado também é 
indispensável se seu computador não tiver SLOW Por is¬ 
so acrescente a linha 

1 GOTO VAL "2" 

12 PAUSE 30 

Compare o número de bytes ocupados agora com o 
valor obtido anteriormente. 

Haverá o inconveniente da tela ficar piscando, mas as¬ 
sim mesmo você poderá jogar e se divertir. ^ 

PROGRAMA DO 

MÊS 

ALTA RESOLUÇÃO 
NA IMPRESSORA 

DO TK 

permite uma melhor definição gráfica, pois cada unidade 
por ela gerada ocupa 1/4 da área ocupada por um carac¬ 
tere. Obviamente, perdemos a possibilidade de "semi¬ 
tons", pois a unidade gráfica do PLOT é única. Em com¬ 
pensação os desenhos podem ser muito mais detalhados, 
pois, a matriz gráfica tem agora 


44 X 64 

Quando fazemos um gráfico na TV usando o 

PRINT AT 

estamos gerando um desenho, que tem amplas possibili¬ 
dades nas nuances (pois podemos utilizar vários caracte¬ 
res diferentes), mas que tem baixa resolução. Como os 
caracteres gráficos podem ser dispostos ao longo de 32 
colunas e 22 linhas, (ou no máximo 24 usando as linhas 
de edição), temos uma matriz gráfica de no máximo 

posições. 

Este é o máximo de resolução que podemos obter na 
tela da TV. Em breve, teremos no Brasil, a produção de 
um periférico para o TK, que permitirá a elaboração de 
desenhos com alta resolução na tela de TV. Por enquan¬ 
to devemos nos contentar em fazer estes desenhos na 
impressora TK-PRINTER. 

0 programa que apresentamos a seguir, tem uma sub- 
rotina que altera o comando LPRINT para a impressora, 
permitindo a impressão de uma matriz de 

24X32 

256 X 256 

posições. 

Já a instrução 

PLOT 

posições. 

No TK-85 ele roda tranquilo, mas no TK-82 é indis¬ 
pensável uma expansão de pelo menos, 16K. 
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PROGRAMA DO MÊS 
ALTA RESOLUÇÃO NA 
IMPRESSORA DO TK 

Continuação... 


EXEMPLO: 

/ 

GRAFICO EM 3-D 


1 REM U|RND. UBrNDjB^ .TAN .. 

2 POKE 16389.124- 

3 CL5 

4- IF NOT PEEK 163SS +2S6 íPEEK 
16389=31744 THEN 5TOP 

5 FOR 1=0 TO 112 

6 POKE 31744+1,PEEK (2161+1) 

7 NEXT X 

8 POKE 31800.63 

9 POKE 31857,201 

10 POKE 16517.95 

11 POKE 16524.79 

12 D IN fl$(32,256) 

13 FRST 

14- LPRINT " ✓** 

15 LPRINT "GRAFICO EM 3-D" 

20 LET X1=128 
30 LET X2=Xl+*2 
4-0 LET Y1 = 128 
50 LET Y2 =32 
60 FOR B =0 TO 127 
70 LET X4=B**2 
80 LET M=-Y1 
90 LET A=SOR (X2 -X4) 

100 FOR I = —R TO R STEP 10 

110 LET R = SOR (X4 + I++I) /XI 

120 LET F=COS (9*R) * (1-R) *-2 

130 LET Y = I/5+F+tY2 

14-0 IF Y < =M THEN GOTO 180 

150 LET M=Y 

160 LET Y=Y1+Y 

165 LET X=X1+B 

170 GOSUB 9980 

174. LET X = X 1 -B 

175 GOSUB 9980 

180 NEXT I 

19® NEXT B 

195 GOTO 9988 

9980 REM PLOTR (X,Y) NR MATRIZ 

R$ 

9981 IF X<0 OR X >255 OR Y<0 OR Y 
>255 THEN RETURN 

9982 LET C=1+INT (X/8) 

9983 LET R=256-INT Y 

9984 POKE 16526,CODE A$(C.R) 

9985 POKE 16527,2++* (8++C-INT X-l) 

9986 LET R*(C,R)=CHR* (U5R 16514 

9987 RETURN 

9988 REM IMPRIME 8 LINHRS DE 

CADA UEZ 

9989 FOR 1=0 TO 246 STEP 8 

9990 FOR U=1 TO 32 

9991 FOR K = 1 TO 8 

9992 POKE 32255+-K+8* (ü-1) .CODE R 
$ (U,K + I) 

9993 NEXT K 

9994 NEXT J 

9995 FOR H=© TO 31 

9996 POKE 16444+H,H 

9997 NEXT H 

9998 LET HPRINT=USR 31744 

9999 NEXT I 





A linha 1 contém, após o REM, uma sequência de ca¬ 
racteres cujos códigos constituem uma sub-rotina em lin¬ 
guagem de máquina. 

Esta linha deve ser digitada com todo o cuidado, pois 
por qualquer errinho põe tudo a perder. 

Para facilitar, colocamos a seguir, a lista dos caracte¬ 
res que a constituem com o número de seu código (em 
caso de dúvida consulte o apêndice A do manual do TK). 


ü 

8 

RND 


6 

R! 

5 


f RN 


CODXGO = 5Q 
CODXGO = 14-S 
COD IG0 = 64- 
CODICO=2? 
CODIGO=58 
CODIGQr1*3 
CODIGO=64 
CODIGOrl79 
CODXGO=6 
CODIGG=0 
CODIGO=2? 
000160=201 
CODIGO=27 
CODIGO=27 


Esta sub-rotina permite a superposição de um gráfico 
sobre outro, fazendo a operação lógica OR entre os dois 
bytes nos endereços 16526 e 16527. As linhas 2 e 3 re¬ 
servam um espaço na memória e a linha 4 bloqueia o 
programa, no caso desta reserva não ter se efetivado. 
Neste caso é conveniente se salvar o que foi digitado 
em fita e a seguir dar ao computador os dois comandos. 

POKE 16389, 124 (NEW LINE) 

NEW (NEW LINE) 


Em seguida, recarregar o programa já digitado no 


computador. 
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PROGRAMA DO MÊS 
ALTA RESOLUÇÃO NA 
IMPRESSORA DO TK 

Continuação... 


As linhas seguintes, até a 11 completam a primeira 
sub-rotina e tomam a sub-rotina LPRINT da ROM do 
TK e a alteram para as finalidades deste programa. 

A matriz A$, dimensionada na linha 12, ocupa 8K da 
memória e armazena a posição dos pontos a serem "plo- 
tados" na impressora. 

A sub-rotina de 9980 a 9987 registra as coordenadas 
X e Y na matriz A$, e a subrotina de 9988 a 9999 impri¬ 
me os pontos (8 linhas de cada vez). 

No programa que estamos publicando as linhas de 13 
a 195, geram o gráfico tridimensional, que o pessoal de 
gráfica batizou de "cogumelo". Alterando apenas estas 
linhas, mas deixando intactas as linhas de 1 a 12 e 9980 
a gráficos em alta resolução. Podem até ser geradas men¬ 
sagens em maiúsculas e minúsculas, com acentos e cedi¬ 
lhas. No gráfico do cogumelo você poderá alterar o for¬ 
mato mudando as linhas 100 e 120. 



ESTE GRRFICO FOI OÕTIDO ALTERAM- 
DO RS LINHAS 100 E 120 PARA 
100 FOR I= R TO -R STEP 2 
120 LET F=COS (1S*R>*tl-R)*2 

CUIDADO,SEU PROCESSAMENTO DEMORA 
RPROXIMADRMENTE UMA HORR 


Após rodar o programa, a sequência da linha REM fi¬ 
ca acrescida automaticamente de outros caracteres. 

Aconselhamos, antes de rodar o programa, salvá-lo em 
fita uma ou duas vezes. Uma vez rodado, sua gravação fi¬ 
cará muito mais demorada, pois ele armazenará também 
os 8K da matriz A$. Isto é muito bom, quando você não 
quiser perder muito tempo para gerar a matriz outra vez. 


Este processo é demorado, pois você, estará produzindo 
uma matriz de 

256 X 256 = 65536 posições 

Obviamente, por mais bonitos que sejam os gráficos 
obtidos por este programa, você não vai querer ficar o 
tempo todo desenhando "cogumelos"; para gerar gráfi¬ 
cos de sua invenção, é necessário compreender a "arqui¬ 
tetura" da matriz A$. 

Ela armazena 256 linhas e 256 colunas, mas na linha 
12, seu dimensionamento é 

12DIM A$ (32, 256) 

ou seja, 256 linhas, mas, apenas 32 colunas. 

Isto é fácil de ser explicado: cada coluna de matriz AS 
contém 1 byte, ou seja, 8 bits. Como cada ponto está as¬ 
sociado a 1 bit temos: 

32 bytes X 8 bits/bytes = 256 bits 


A posição dos pontos na matriz é dada pelas suas 
coordenadas (X, Y): 



A posição dos elementos da matriz AS é dada pela fi¬ 
gura 3. 


A$ (1, 1), A$ (2,1). 

AS (1,2). 

.AS (32, 1) 

A$ (1,256). 

A$ (32, 256) 


Fig. 3 
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PROGRAMA DO MÊS 
ALTA RESOLUÇÃO NA 
IMPRESSORA DO TK 

Continuação... 


Como já dissemos, cada elemento A$ representa 1 li¬ 
nha e 8 colunas (uma por bit). 

Vamos recordar um pouco a estrutura de um byte (fi¬ 
gura 4). 


bit 7 

bit 6 

bit 5 

bit 4 

bit 3 

bit 2 

bit 1 

bit 0 

2 7 

2 6 

2 S 

2 4 

2 3 

2 2 

2 1 

2® 

128 

64 

32 

16 

8 

4 

2 

1 


Se quisermos, por exemplo, imprimir um elemento 
qualquer da matriz, pontos nas colunas dos bits 6, 4, 2 e 
1, deixando os outros em branco, deveremos atribuir ao 
byte correspondente o valor 

64+16 + 4 + 2= 86 


Assim, se por exemplo, quisermos desenhar no canto 
superior esquerdo o que está representado na figura 5. 



deveremos fazer o seguinte "miolo" de programa: 

200 LET A$ (1, 1) = CHR$(169) 

210 LET A$ (1,2) = CHR$ (168) 

220 LET A$ (1,3) = CHR$(251) 

230 LET A$ (1,4) = CHR$ (33) 

240 LET A$ (1,5) = CHR$ (33) 

250 GOTO 9988 

Deixamos agora à imaginação do leitor, o desenvolvi¬ 
mento de ulteriores aplicações. Apenas a título de exem¬ 
plo, vamos dar o "miolo" de programa que gera uma sé¬ 
rie de curvas isotérmicas de um gás no diagrama de 
Clapeyron. 


12ÜD XM 256) 

13 FR5T 

14 LPRINT "TRRN5FORHRCOE5 XSGT 
ERMXCRS" 

15 LPRINT TflB 12;"PRESSRO X UO 
LUME " 

20 FOR 1=1 TO 256 
30 LET R$(1,I)=CHR$ (32) 

40 NEXT I 

50 FOR 1=1 TO 256 STEP 32 
60 LET =CHR$ (224.) 

62 NEXT I 

64 FOR 1=1 TO 32 

70 LET R$(1.239)=CHR$ (255) 

60 NEXT X 

90 FOR 1=1 TO 32 STEP 4 
100 LET R$(I,240)=CHR$ (126) 

110 NEXT I 
200 LET U =4096 

210 FOR P=U TO 4*U STEP ,5*U 

220 FOR X=9 TO 252 

23© LET Y=P/X+S 

24© GOSUB 9960 

250 NEXT X 

26© NEXT P 

270 GOTO 9966 


TRflNSFORMRCOES ISOTÉRMICOS 

PRESSflÜ X UGLUME 
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DICAS 

A FITA BRINDE 



A fita brinde que foi enviada para nossos assinantes 
contém dois programas interessantes: PULGA para 2K 
e SIMULADOR DE VOO para 16K. 

A fita está gravada dos dois lados para maior seguran¬ 
ça. Com relação ao programa SIMULADOR DE VOO 
cabem duas observações: 

1) Querendo mudar o "plano de vôo" devemos digitar 
M (mapa) e a seguir B. A nova cidade escolhida apare¬ 


cerá piscando no mapa. Digitando V aparecerá nova¬ 
mente a cabine. Nas proximidades do pouso digitar V 
novamente: a cabine desaparecerá e em seu lugar ve¬ 
mos o campo de pouso em perspectiva. 

2) No TK85 há um pequeno grilo facilmente solucioná- 
vel: 
a linha 

8390 RETURN 
deve ser substituída por 

8390 GOTO 8391 

8391 RETURN 

Para isto basta dar um BREAK no programa e listá-lo. 
Se não fizermos isto, o programa sumirá de RAM após o 
primeiro acidente (o TK85 é muito sugestionável!). 

O programa assim alterado poderá agora ser armaze¬ 
nado em HIGH-SPEED. 


DICAS 


COMO MEMORIZAR 
A TELA 


(Pierluigi Piazzi) 



que é o endereço do primeiro byte do programa. 

Mas se você fizer: 

1 PRINT PEEK T6396 + 256 * PEEK 16397 
e a seguir RUN 
você obterá 


A RAM do TK é estruturada de uma maneira um 
pouco diferente da de outros microcomputadores: o 
"display", ou seja, a tela não é armazenada num ponto 
fixo da memória, mas movimenta-se para cima e para 
baixo em função do tamanho do programa. O endereço 
da primeira posição do arquivo da imagem é uma variá¬ 
vel do sistema denominada de DFILE e seu valor, está 
armazenado nos Bytes dos endereços 16396 e 16397. 

Para ler o valor de DFILE (D = Display: tela — FILE 
arquivo), basta fazer: 

PRINT PEEK 16396 + 256 * PEEK 16397 

Se seu computador estiver "vazio", ou seja, sem ne¬ 
nhum programa armazenado, você obterá 

16509 


16550 

pois o programinha correspondente à Linha 1 que você 
digitou ocupou 41 bytes e portanto deslocou a memó¬ 
ria correspondente ao arquivo da tela de 41 bytes 
(fig. D. 


COMEÇO DARAM DO TK 


Variáveis do sistema 
(incluindo DFILE) 

Programa de 

41 bytes 

Arquivo 
da tela 

-16384 

-16509 

-16550 


Vejamos agora, como transferir o conteúdo do arqui¬ 
vo da tela para uma única variável. 

Em muitos programas formam-se na tela desenhos ou 
letreiros gastando para isso muito tempo de proces- 
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DICAS 

COMO MEMORIZAR 
A TELA 

Continuação... 

sarnento. Para reproduzir estes desenhos sem gastar no¬ 
vamente todo tempo de processamento, podemos adotar 
como sub-rotina o programa a seguir: 


3000 DIM R$(704) 

3010 FOR 1=0 TO 21 

3020 FOR 0=1 TO 32 

3030 L.ET R$(Jf32fI) =CHR$ PEEK (( 
PEEK 16396+256ÍPEEK 16397)+0+33* 

I) 

304-0 NEXT O 

3050 NEXT I 


A variável A$ terá 704 elementos pois 

22 linhas x 32 colunas = 704 posições 
Na linha 3030 o final é realmente 
. . J + 33* I) 

e não 32 pois ao fim de cada linha da tela há um byte de 
NEW LINE. Esta sub-rotina deve ser chamada por algu¬ 
ma instrução do próprio programa e nunca por um co¬ 
mando direto. 

Toda vez que você dá um comando direto ao seu TK, 
seu primeiro efeito é justamente apagar a tela. Desta for¬ 
ma ao começar, a sub-rotina copiará uma tela vazia. 

Você poderá então intercalar no seu programa uma 
instrução do tipo 

1510 IFINKEYS = "P" THEN GOTO 3000 

desta forma, ao apertar a tecla P seu programa parará e a 
tela ficará inteirinha copiada na matriz A$. Para checar 
basta dar o comando direto 

PRINT A$ 

e seu desenho, que demorou tanto para ser elaborado, 
reaparecerá em uma fração de segundo! 

Dispondo de bastante memória, você pode trocar o 
AS das linhas 3000 e 3030 por BS e repetir o processo. 
Cuidado apenas para nunca digitar RUN ou CLEAR! 

Oportunamente você poderá fazer um outro pedaço 
de programa para imprimir AS, BS, CS e assim sucessiva¬ 
mente. 

Outra vantagem deste processo está no fato de poder 
arquivar todos os desenhos feitos em fita magnética, 
pois ao dar um "SAVE" você estará armazenando as ma¬ 
trizes AS, BS, . . . 


LIVROS PARA TK, NE Z, CP 


r ^ 

TRINTA JOGOS 

INCLUINDO PROGRAMAS EM CÓDIGO LIS 
TADOS POR IMPRESSORA 

JOGO DE DAMAS, LABIRINTO, GUERRA 
NAS ESTRELAS, ENTERPRISE,PAREDÃO, 
DEMOLIDOR, VELHA, pASSINO, ROLETA 
RUSSA, CORRIDA DE CAVALOS, GOLF, 
VINTE E UM, CUBO MÁGICO,SENHA,BAN 
CO IMOBILIÁRIO, BOMBARDEIO, SOM 
POR SOFTWARE, ETC.... 

LANÇAMENTO Cr$ 2.500,00 

APLICAÇÕES SÉRIAS 

0 

FOLHA DE PAGAMENTO, BALANCETE,CON 
TAS A RECEBER, A PAGAR, CORREÇÃO 
MONETÁRIA DAS CONTAS DO BALANÇO, 
CORREÇÃO DAS CONTRIBUIÇÕES DO I. 
A.P.A.S., CADASTRO DE CLIENTES , 
CONTA BANCÁRIA,TABELA PRICE,ESTA¬ 
TÍSTICA ,CORREÇÃO DE PROVAS,EDITOR 
DE TEXTOS,RAM TOPER , SUB-ROTINAS 
EM CASSETTE, CHAINING PROGRAMAS, 
CONTANDO OS BYTES DAS LINHAS, DO 
PROGRAMA, DAS MATRIZES,ECONOMIZAN 
DO MEMÓRIA, ETC... ETC... 

Cr$ 3.000,00 

45 PROGRAMAS 

ARQUIVOS,ESTOQUE, PLANO CONTÁBIL , 
AGENDA TELEFÔNICA, INVASORES,APAGUE 
A TRILHA, CAÇA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, TABELAS,TABUADAS, 
CONVERSÃO DE COORDENADAS, MÉDIA,FI 
BONACCI.PROGRESSÃO, BIORRÍTMO , RE 
NUMERADOR DE LINHAS EM CÓDIGO,ETC. 

75 EDIÇÃO crí 3.000,00 

L_ J 


MICRON 

ELETRÓNICA COMERCIO E INDUSTRIA ITDA 
Av. S. Joao. 74 Telefone 22 4194 S Jose dos Campos 
Est. de São Paulo 
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PROGRAMA 


DO LEITOR 

"O POETA" 


UOCE , COM SUfi UEIR POETICfl , IRfl 
CRIRR 17 PRLRvRRS UUE 5ERRO 
USRDRS POR HXH PRRfi GERRR LINDOS 
POEMRS 


ENTRE COM RS PRLRURRS, UMR R UHR 


Bernardo Cláudio Stein 


Para pessoas que não estão familiarizadas com compu¬ 
tação, o microcomputador parece uma máquina inaces¬ 
sível, misteriosa e fria. 

0 programa "0 POETA" que ora apresentamos aos 
leitores, foi criado para ser utilizado por pessoas sensí¬ 
veis e poéticas. Gaste um pouco do seu tempo e digite o 
programa no seu TK85 ou TK82 com expansão. 

Este programa, gera lindas poesias, a partir de 17 ex¬ 
pressões que você mesmo escolhe e introduz no compu¬ 
tador. 

Vejamos como . . . 

1) Digite a listagem apresentadas na "figura V'. 

2) Passe o programa para o gravador 

a) Entre "GOTO 3200" 

b) Coloque o gravador em "REC" 

c) Entre "NEW UNE" 

3) Após a gravação, o programa apresentará o Menu da 
"Figura 2". 

4) Escolha a Opção número 1. 

5) 0 programa convida você a entrar com 17 expressões 
à sua escolha. 

a) escolha uma palavra (ou conjunto) 

b) entre com ela no computador 

c) entre "NEW LINE" 

d) continue com as expressões até compíetar 17. 

6) 0 programa volta ao Menu principal. 

7) Se você quiser rever as palavras escolhidas entre com a 
Opção 2. 

8) Você verá, então, por alguns segundos, os 17 termos 
escolhidos e depois retorna ao Menu. 

9) AGORA 0 GRANDE MOMENTO. . . 

Escolha a Opção número 3. 

0 computador gerará uma poesia usando as 17 ex¬ 
pressões que sua veia poética escolheu. 

10) Se você possuir a TK-PRINTER poderá guardar pa¬ 
ra sempre aqueles melhores poemas que o computador 
gerou: basta digitar COPY" e "NEW LINE" quando a 
poesia estiver apresentada na tela. 

11) Para voltar ao menu principal entre "GOTO 3210" 
e "NEW LINE". 

12) Se você quiser gerar logo outro poema entre 

"GOTO 2" e "NEW LINE". 

13) Você pode armazenar para sempre o programa 
COM os 1 7 termos escolhidos: 

a) Escolha a "Opção n<? 4" do Menu 


"H" 


PR^URR^gUE^_i 

SE RPRRECER R MENSRGEM DE ERRO 
2/3030, ENTRE GOTO 3210, RPOS 1, 

1. O SOL 

2. R BRISR 

3. RS ONDRS 

4. BRILHRNDO 

5. R CHUUR 

6. CRINDO 

7« RS 

3 . HOP.RS PRS5RNDG 

9. CREPÚSCULO 

10. SEMPRE 

11. NUNCR 

12. COM 

13. SEM 

14. ELE 

15. ELR 

16. BEIUOS 

17. LRGRXMRS 

OUflNDO R POESIR TIUER PREENCHIDO 
R TELR, ENTRE “GOTO 3210“ 


RS 


ELR O SOL 

CRINDO 6RILHRNDO BRILHRNDO RS 


ELE ELR RS ONDRS 

BRILHfiNDO NUNCR COM HORRS PRSSRN 
DO LRGRIMRS ELE SEMPRE 


RS ONDRS 

BEIJOS ...R CHUUR BEIJOS SEMPRE 
LRGRIMRS 


CRINDO 


figura 1 


b) O programa será então gravado com as palavras es¬ 
colhidas. 

14) Se você quiser carregar o programa na memória do 
TK entre com LOAD "0 POETA" ou LOAD " " 
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PROGRAMA DO LEITOR 
“0 POETA" 

Continuação... 


O POET R 


UGCE OUER... 

1. CRIAR UHfl NOUfi POESIA 

2. REUER R5 PRLRURRS OÜE 

ESTRO NR MEHORIft 

3. GERRR UMR POESIR COM 

RS PRLRURRS 
QUE ESTRO NR MEHORIR 

4-. GRRURR RS PRLRURRS 

DR HEMORIR 


P XG . 2 


15) Durante a utilização do programa evite entrar com 
RUN", pois isto apagará todos os 17 termos da memó¬ 
ria. Neste caso, se você escolher a "Opção nP 2" será 
apresentada a mensagem de erro 2/3030. 

Neste caso entre com "GOTO 3210" e "NEW UNE" 
e escolha a "Opção nO 1" do Menu. 

Após algumas tentativas, você perceberá a conveniên¬ 
cia de utilizar substantivos, já com seus adjetivos, verbos 
no infinitivo e truques similares. Desta forma você evita¬ 
rá erros de concordância muito evidentes. Certa vez, o 
físico James Jeans disse que, se pudéssemos acorrentar 
dois chimpanzés a um piano e eles pudessem bater nas 
teclas ao acaso indefinidamente, com certeza, após al¬ 
guns milhões de anos, tocariam a 5? Sinfonia de 
Beethoven. 

Ajudando um pouco o seu TK, escolhendo locuções 
bem fortes poeticamente, cercados de expressiva aura 
conotativa, você poderá gerar poesias incríveis (no meio, 
obviamente, de ridículos fracassos). 

Muito bem, agora mãos à obra. 

Quem sabe, você poderá se tornar um novo Olavo 
Bilac; com a ajuda do seu "TK", obviamente. 


1 REM O POETR 

<C)-B.C.5TEIN 
liRR 2*963 

2 CLS 

5 PRINT "OURNDQ R POESIR TIUE 
R PREEMCHIDOR TELR. ENTRE ““GOTO 
3210“““ 

7 PRINT —. 


3 PRINT 

10 LET U = IMT C21*RND) 

IS IF 0=0 THEN PRINT 
20 IF J> = 1 RNO U<=3 THEN GOSUB 
1000 

30 IF O > =4- THEN GOSUB 10+0*10 
4-0 GOTO 20 
5Q PRINT R$; *• ” 

55 RETURN 
60 PRINT 5$; “ ” 

65 RETURN 
70 PRINT Cí;“ '• 

75 RETURN 

80 PRINT D$; M 
85 RETURN 
9© PRINT E$; “ * % ; 

95 RETURN 
IO© PRINT Fs;“ 

105 RETURN 
110 PRINT G$; “ 

115 RETURN 
120 PRINT H$; '* 

125 RETURN 
130 PRINT I$.“ 

135 RETURN 
14-0 PRINT U$; “ 

14-5 RETURN 
150 PRINT 
155 RETURN 
160 PRINT L$.“ 

165 RETURN 

170 PRINT H$: “ “ ; 

175 RETURN 
130 PRINT N$,” 

135 RETURN 

190 PRINT 0 %; “ “ i 

195 RETURN 
200 PRINT P$; 

205 RETURN 
210 PRINT 0$; ” 

215 RETURN 

1000 PRINT 

1001 PRINT 

1002 PRINT 

1003 RETURN 

2000 CLS 

2005 PRINT PT õ,0;“UOQE. COM 5Ufi 
UEIfl POETICfi, IRfi CRIRR 17 PRLP 

U RftS QUE SERRO USRDftS POR Ml 

M PRRR GERRR LINOQSPOEMRS“ 

2010 PRUSE 630 

2015 CLS 

2020 PRINT “ENTRE COM RS PRLRURR 


S , UMR R UMR“ 


2030 

2050 

PRINT 

PRINT 

“ 1 . 

t 

2053 

INPUT 

Rí 


2057 

PRINT 

Rí 


2060 

PRINT 

“2. 

* 

2063 

INPUT 

6$ 


2067 

PRINT 



2070 

PR INT 

“3 . 

»* . 

* 

2073 

INPUT 

c$ 


2077 

PRINT 

c$ 


2030 

PRINT 

“4 . 

•t . 
* 

2033 

INPUT 

D $ 
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PROGRAMA DO LEITOR 
"O POETA" 

Continuação... 


2037 

PRINT 



2090 

PRINT 

»■ c; 

•t . 

9 

2093 

INPUT 

ES, ' 


2097 

PRINT 



2100 

PRINT 

**6 . 

9 

2103 

INPUT 

F$ 


2107 

PRINT 

F$ 


2110 

PRINT 

“ 7 • 

• « . 

2113 

INPUT 

G$ 


2117 

PRINT 

G$ 


2120 

PRINT 

fl 8 . 

• < . 

9 

2123 

INPUT 

H$ 


2127 

PRINT 

Hí 


2130 

PRINT 

"9 . 

»« . 

9 

2133 

INPUT 

1$ 


2137 

PRINT 

1$ 


2140 

PRINT 

“10. 

9 

2143 

INPUT 



2147 

PRINT 



2150 

PRINT 

•'11. 

*• ' 

2153 

INPUT 

K$ 


2157 

PRINT 

K$ 


2160 

PRINT 

“12. 

**; 

2163 

INPUT 

L$ 


2167 

PRINT 

L $ 


2170 

PRINT 

“13. 

•• . 

9 

2173 

INPUT 

M* 


2177 

PRINT 

M$ 


2130 

PRINT 

“ 14 . 

J 

2133 

INPUT 

N$ 


2137 

PRINT 

N* 


2190 

PRINT 

“15. 


2193 

INPUT 

o* 


2197 

PRINT 

o$ 


220© 

PRINT 

“16. 

J 

2203 

INPUT 

P$ 


22©7 

PRINT 

P$ 


2210 

PRINT 

“ 17 . 

" ; 

2213 

INPUT 

Q$ 


2217 

PRINT 



2220 

PR USE 

27© 


2230 

CLS 



2240 

GOTO 3210 


3000 

CLS 



3005 

PRINT 

“PRLRURRS 


R MEMORIfi:“ 
30X0PRXNnT| 

3020 PRINT 
EM DE ERRO 


210 , 

RPCS 1 

«t 

• 


3025 

PRINT 



3030 

PRINT 

“1. 

*•; R* 

3040 

PRINT 

“2 . 

“; 3* 

3O50 

PRINT 

"3 . 

“; c$ 

3060 

PRINT 

“4 . 

“ ; 

3070 

PRINT 

“b . 

,f ; e$ 

3080 

PRINT 

“6. 

“; F$ 

3090 

PRINT 

** 7 • 

G$ 

3100 

PRINT 

“àl 

••; H % 

3110 

PRINT 

“9. 

••; i$ 

3120 

PRINT 

" 10. 


3130 

PRINT 

“11. 

••; k$ 

3140 

PRINT 

“ 12. 

“; l$ 

3150 

PRINT 

“13. 

“; m$ 

3160 

PRINT 

“ 14 . 

••; n$ 

3170 

PRINT 

“15. 

Oí 

3180 

PRINT 

“ 16 . 

••; p% 

3190 

PRINT 

”17. 

••; Q % 

3191 

PRUSE 

540 


3192 

CLS 




>E RPRRECER R MEN5RG 
2/3030, ENTRE GOTO 3 


3123 GOTO 3210 

3124 CLS 

3126 PRINT RT 7,2;"COLOQUE O GR R 

URDOR EM ** %% REC” ** ENTRE “ 

“NEU LINE. 

3127 INPUT Z$ 

3123 CLS 

3200 SRUE “O POETB ' 


3210 PRINT RT 3,1 
3215 PRINT RT 4,1 
3220 PRINT RT 7,3 
3230 PRINT RT 2,1 
R NOUR POESIR” 
3240 PRINT RT 11. 
S PRLRURRS QUE 
NR MEMORIR- 
3250 PRINT RT 14, 
MR POESIR COM 
PRLRURRS 
RO NR MEMORIR'* 
3260 PRINT RT 13. 
RS PRLRURRS 
EMORIP" 

3270 IP INKEV$=‘T* 
323© IP INKEY $ = "2’ 
0 

3220 IP INKEY $ = “ 3 * 
3300 IP INKEY $ = “ 4 ’ 
4 

3310 GOTO 327© 


1; “O POETR“ 

li " 

UQCE QUER.. 


; ,% 1 . 

i; "2. 

i; 

i; *4. 


CRIRR UM 

REUER R 
ESTRO 

GERRR U 
RS 

QUE EST 

GRRURR 
DR M 


THEN RUN 2000 
THEN GOTO 300 

THEN GOTO 1 
THEN GOTO 312 


LANÇAMENTO 


PASSAGEM PARA 0 INFINITO 

8ensacional jogo onde você tentar* encontrar e sair com um fabuloso tesouro em um 
complexo labirinto, guardado por terríveis polvos monstros, e com mais de 400 pes 
sos Para ajudá-lo. você contará com algumas espadas, que garantirão sua sobrevi 
vència na luta com os monstros, e com os prisioneiros encarcerados nas várias pas 
sagens que lhe indicaráo o caminho a seguir Totalmente em linguagem de máquina 
com gráficos fantasticamente animados e três níveis de dificuldade para deeafiá lo 
Preço Cri 7 000.00 

- MIDWAY - 

Uma grande guerra mundial está sendo travada nas aguas do Atlântico Você agora è 
o comandante do submarino atómico MIDWAY sua missão destruir todas as bases 
inimigas em aguas brasileiras Cuidado com os navios, aviões e minas espalhados pe 
los invasores Para auxilia lo poderá contar com uma frota de navios de reabasteci 
mento, varias bases aliadas e um computador de bordo Um grande desafio com gra 
ficos e varias rotinas em linguagem de maquina Preço Crg 5 000 00 


JORNADA NA8 ESTRELAS 


A sua nave interplanetária ENTP.EPRISE necessita livrar a galáxia dos invasores 
Kllngon. e você, como comandante da nave, tera a árdua missão de destrui los Um 
jogo famoso no mundo todo em uma de suas melhores versões pela Softkristian com 
efeitos gráficos sensacionais Preço Crg 5 OÒÓ.OÔ 


8*DIMENSÃO- 


Agora você ja pode ter um fliperama em seu microcomputador em2* DIMENSAOdoia 
jogoe agitadíssimos para testar sua coordenação motora Em SPACE INVADER você 
tem oe originais invasores atacando sua nave e em ASTEROID você deve pousar em um 
planeta e. para tanto devera ultrapassar os obstáculos que vèem a sua frente tentando 
destrui-lo Grandes Jogos em linguagem de maqutna Preço Crg 8 000.00 


VISITA A0 CASSINO 


Quatro grandes jogos em um só caça níqueis, roleta. 21. e perseguição fatal fazem 
parte deste sensacional conjunto Todos os jogos com gráficos e rotinas em linguagem 
de maquina, para você que gosta de apostar e torcer Preço Crt 5 000.00 


-10 J0Q0S EXCITANTES PARA 1 X- 


Dez pequenos jogoe para você incrementar e aprender bastante oe efeitos de progra 
mação de jogoe e trabalhos com video Se você nào diepóe da expansáo de 16 K ja pode¬ 
rá ter entretenimento com esta sensacional fita Se você ja dispóe de 16 K compre para 
tncrementá-loa e tera excelentes jogoe Preço Crt 4 000,00 


Compre conosco de ouaiQuer parte do Brasn sem 
despesas adoonais envianoo um cneque cru/a 
doenommaUKRiSTiAN ELETRÓNICA uca mio 
precsa visar i e garama o rececimemo de nosso 
mtormativo NOv<OAOES KRiSTiAN totaimente 
gratuito 


(Kpistiãn) 

^tfTHONCA IToè-^ 

Rua da Lapa. 120 grupo 605 
Tels 252 9057 232 5948 
CEP 20021 Rio de Janeiro RJ 


Todas ae fitas vao em embalagem lacrada, com gravaçao profissional para sua garan¬ 
tia. A Kriatlan trocará qualquer fita que seja enviada, com defeitos de fabncaçáo 
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DICAS 

USANDO AS 
LINHAS 22 E 23 

Flavio Rossini 


Quantas vezes você já não deve ter se perguntado se 
seria possível utilizar as últimas duas linhas da tela 
(reservadas para a edição), especialmente para a realiza¬ 
ção de jogos. . . 

De fato, isto pode ser feito de um modo bastante sim¬ 
ples: na memória de endereço 16418, está uma variável 
chamada DF-SZ usada pelo TK para indicar o número 
de linhas reservadas para a região de edição; assim sendo, 
seu valor normalmente é dois. Basta então modificá-lo 
para 0: 


1 POKE 16418, 0 


1 RRND 
5 SUOU 

10 POKE 164-18.0 
15 LET X=0 
20 LET Y=0 

25 LET X=X+2*(INKEY* = ”8" )-2*íI 
NKEY $ = "5") 

30 LET Y =Y + ( INKEY$ = *'6“J - ( IMKEY 
* = ”7" ) 

35 IF X<0 THEN LET X=30 
4-0 XF X > 31 THEN LET X=0 
4-5 IF Y í 0 THEN LET Y=23 
50 IF Y > 23 THEN LET Y=0 
55 LET Y$=STR$ Y 
60 LET flrINT (2JRHD)*128 
65 IF LEN Y* = l THEN PRINT RT Y 
,X.;CHR$ <CGDE Y*+R) 

70 IF LEN Y$ =2 THEN PRINT PT Y 
,x;CHR$ (CODE Y$+fl);CHR$ (CODE Y 

$ (2) +r:- 

75 GOTO 25 


Digite RUN aparece o número 0 no canto superior 
esquerdo: tente movimentá-lo usando as teclas 5, 6, 7 e 
8. 0 que acontece ao chegar ao fim da tela? 

Tente agora este programa: 


Pronto! Experimente fazer agora 


2 PRINT AT 22, 0; "BEATLES" 

3 PRINT AT 23, 0; "FOREVER" 

e RUN 

No entanto, este truque só pode ser utilizado para 
efeitos de tela! Se você for fazer algum INPUT após fa¬ 
zer este POKE, "coisas estranhas" poderão ocorrer. As¬ 
sim, você poderá corrigir DF-SZ antes de fazer um 

INPUT 


1 SLOW 

2 POKE 164-18.0 

5 IF INKEY* = ••*’ THEN GOTO 5 
10 PRINT INKEY*; 

15 GOTO 5 


Digite RUN e a seguir qualquer tecla 
tece ao digitar NEW LINE? 


o que acon- 


POKE 16418, 2 


Para exemplificar o efeito, vamos apresentar um pro¬ 
grama que ilustra, além disso, alguns truques de progra¬ 
mação. Tente explicar como funcionam as linhas 25, 30 
e 60.. . 
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PROGRAMA 


DO LEITOR 

CALENDÁRIO 



No número 0 da MICROHOBBY, publicamos um pe¬ 
queno artigo a respeito de calendário, no qual era forne¬ 
cido um programa. 

Este programa permite calcular o dia e o mês no qual 
cai a PÁSCOA desde que seja conhecido o ano (REVIS¬ 
TA DOS USUÁRIOS DO TK — pág. 6). Pedimos tam¬ 
bém que os leitores nos enviassem um aperfeiçoamento: 
"dado o ano, em que dia cai o CARNAVAL?" 

Recebemos muitas respostas interessantes para cujos 
autores enviamos os brindes prometidos. Uma delas foi 
selecionada para publicação: a de autoria de EDSON 
SAUER GUIMARÃES. 

Com relação à pergunta: "O que aconteceu em Roma 
no dia 10 de outubro de 1582?" A resposta é "Nada, 
absolutamente nada!". De fato para ajustar o calendário 
de Juliano para Gregoriano, no dia 5 de outubro de 
1582 sucedeu o dia 15 de outubro de 1582. O dia 10, 
então, não existiu! 

Para os leitores que queiram se aprofundar no tema, 
aconselhamos a leitura do BOLETIM DA SOCIEDADE 
ASTRONÓMICA BRASILEIRA - ANO 5, N° 3 - 
OUT/DEZ 1982, página 5, onde começa um excelente 
artigo de autoria de ROBERTO BOCZKO. 


1 REH EDISON SRUER GUIMRRRES 
10 CL.S , 

20 PR INT ‘•DIGITE 05 OURTRO RLG 
RRISM05 DO RNO CUÜR PRSCOR E CR 
RNRURL UOCE OUER " 

30 PRINT 

4-0 PR INT **R SEGUIR DIGITE NEU 
L INE *' 

50 INPUT R 

55 IF R<=1532 THEN GOTO 30 

50 GOTO 90 
8© PRINT 

51 PRINT -SINTO MUITO HRS SO V 

RLE O CRLENDRRIO GREGORIRN 

o- 


85 GOTO 50 

90 LET U = R -INT (R/19) *19 + 1 
101 CLS 

1©2 PR INT “EM -;R; ,# R PRSCOR CR 
I" 


103 PR INT **NO DOMINGO " ; 

105 LET C=INT fR/100)+1 


li© LET X = INT (3*0/4) -12 
115 LET Z = INT < (8*0+5) /25) -5 
120 LET 0 = INT (5+R/4-) -X-10 
125 LET E=ll*U+20+Z-X 
190 IF E <0 THEN LET E=E+30 
200 LET E=E-INT (E/3Q)*30 
300 IF E =24 THEN GOTO 40© 

310 IF CE =23) RND CU>11) THEN G 
OTO 40© 

32© GOTO 410 
40© LET E =E + 1 
410 LET N = 44 —E 

420 IF N <21 THEN LET N=N+30 

430 LET B = D+N 

45© LET B=B-INT (Bz7) *7 

50© LET N=N+7-B 

505 PRINT 

510 IF N >31 THEN GOTO 5©0 
520 PRINT N;- DE MRRCG" 

530 GOTO 510 

50© PR INT N-31;" DE RBRIL 1 ' 

510 LET M = N + 9 


52© LET B =0 

530 IF CR—INT ÍR/4)*4)<>0 THEN 

GOTO 550 

54© IF CR—INT (R/100)*100)=0 TH 

EN GOTO 55© 

550 LET B = 1 
570 LET M=M + 1 
500 PRINT 

590 PRINT -OS DIRS DE CRRNRURL 
CREM :- 


70© GOSUB 
710 PRINT 
720 GOSUB 
730 PRINT 
74© GOSUB 
75© PRINT 
75© PRINT 
77© PRINT 


50© 

- DOMINGO* 1 
5G0 

- 5EGUNDR-FEIRR- 
50© 

" TERCR-FE IRR 11 
"DIGITE C PRRR CONTIN 


URR- 

775 INPUT 5$ 

780 IF S$ = l *C“ THEN GOTO 1© 
79© GOTO 770 


50© LET M=M + 1 
510 LET 5=59 

820 IF B=1 THEN LET S=5© 

830 IF M < =S THEN GOTO 850 
840 PR INT M -S ; - DE lifiRCO"; 

850 RETURN 

85© PRINT H—31;- DE FEVEREIRO"; 
870 RETURN 
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NOVIDADES 

O HIGH-SPEED 
DO TK85 



O lançamento do TK85 
despertou um grande entu¬ 
siasmo por uma característica que, ironicamente, não é 
a mais importante: o teclado. 

O primeiro computador a usar teclado de membrana 
foi o ZX80 (e posteriormente ZX81) da SINCLAIR que 
encontrou este caminho para baratear mais ainda seu 
custo de produção e tornar o equipamento acessível a 
uma faixa de mercado que antes estava excluída do ma¬ 
ravilhoso mundo da computação. 

No Brasil tivemos o NEZ8000 com teclado de mem¬ 
brana exigindo um bocado de pressão e o TK82 com te¬ 
clado tipo "toque", consideravelmente mais comodo. 

Apesar disto, muitos usuários se queixavam do tecla¬ 
do, pois ao "apertar" a tecla queriam sentir um movi¬ 
mento, para ter um retorno. Para atender a este tipo de 
solicitação a PROLOGICA lançou o CP200, versão com 
SLOW do NEZ8000 expandido, com a diferença de ter 
um teclado de teclas móveis e um "bip" que indica se 
elas foram realmente acionadas. 

A MICRODIGITAL também atendeu a este tipo de 
solicitação lançando o TK85, com teclas móveis e um 
"design" muito atraente. 

O preço do TK85, porém, em sua versão mais barata 
(16K), é quase o dobro do TK82 sem expansão. Será 
que 14K a mais, um teclado mais cômodo e um aspecto 
mais bonito justificam este acréscimo? A resposta seria 
obviamente "não" se o TK85 não tivesse um acréscimo 
maravilhoso: as funções especiais de armazenamento. 

Futuramente pretendemos discutir todas, mas neste 
número queremos destacar o HIGH-SPEED. 

0 TK82 e o CP200 enviam e recebem dados da fita 
cassete com uma velocidade inferior a 600 bits por se¬ 
gundo. O TK85 também opera nesta velocidade, poden¬ 
do receber programas originalmente concebidos para o 
TK82, utilizando fitas e gravadores de qualidade média: 

Acoplado a um gravador de melhor qualidade, porém, 
ele pode operar com uma velocidade de transferência de 
4200 bits por segundo! 

Não existe, no mundo, um microcomputador deste 
porte que transfira dados nesta velocidade. Esta afirma¬ 


ção pode parecer ufanismo, mas no fundo reflete um 
pouco o orgulho que os brasileiros devem sentir numa 
ocasião destas, produzimos um computador com uma 
característica que não tem similar estrangeiro. 

O número 4200 bits por segundo não consegue trans¬ 
mitir o susto do usuário na hora que ele vê, por exem¬ 
plo, um SICOM ser transferido para a RAM do TK85 
em alguns segundos. 

A maneira de se conseguir uma fita gravada de manei¬ 
ra especial para o TK85 é muito simples: usando um gra¬ 
vador de boa qualidade e uma fita "low noise", deve-se 
proceder como segue: 

■Inicialmente transferir o programa de uma fita normal 
(300 bits por segundo) para a RAM do TK85 usando o 
comando LOAD " " 

Com o cursor em □ (se necessário deve-se dar um 
BREAK ou um STOP no programa) digitar 

RAND USR 8405 

sem ainda apertar NEW UNE 

Colocar a fita virgem no gravador, acioná-lo no modo 
"REC" (gravar) e deixar a fita correr um pouco. 

é conveniente, inclusive, se gravar alguma mensagem 
de referência a viva voz, tipo "programa SICOM gravado 
em HIGH-SPEED no dia 20 de junho de 83, três, dois, 
um, já" colocar o plug no MIC e apertar NEW LINE 

O comando digitado chama uma subrotina (batizada 
HISAVE) em linguagem de máquina que faz o TK85 
enviar o programa para a fita na velocidade espantosa de 
que já falamos. 

O padrão das faixas que aparece na tela da TV é com¬ 
pletamente diferente do SAVE "normal" e não existe o 
hiato usual de 5 segundos. 

Ao terminar a gravação, num tempo surpreendente¬ 
mente curto, aparece o código de reportagem: 

0/0 

no canto inferior da tela. 

A fita está corretamente gravada? Verificar isto com 
um "LOAD" é muitas vezes frustrante: a gravação não 
estava correta e o resultado é um computador com a 
RAM vazia. Neste momento o TK85 começa a mostrar 
outra maravilha: a sub-rotina HIVERIFY Você volta a 
fita até o início da gravação, digita 

RAND USR 8539 
e aperta o NEW LINE 

Ao apertar a tecla PLAY do gravador a tela mostrará 
um fundo escuro com alguns riscos brancos horizontais. 
Ao entrar o programa o padrão de riscos se torna pareci¬ 
do com o HISAVE w 


26 MICROHOBBY 











* 






NOVIDADES 

0 HIGH-SPEED DO TK 85 


Continuáção... 


Assim que o programa "passa" pelo computador, sem 
ser carregado e sem afetar o que ainda está na RAM, a 
tela pode mostrar três coisas: ou um OK tranquilizador 
na primeira linha, ou uma mensagem indicando 

ERRO 

ou continua escura. Neste último caso convém repetir o 
processo aumentando o volume de reprodução. Se a 
mensagem indica ERRO é conveniente repetir o proces¬ 
so de HISAVE 

Se a mensagem diz "OK", então você pode desligar 
seu TK tranquilo pois o programa está bem gravado. 

Quando quiser recolocar o programa assim gravado na 
RAM, você deve usar a sub-rotina HILOAD. 

Para tanto coloca-se a fita no início da gravação, 
digita-se 


RAND USR 8630 

e NEW LINE. Põe-se a fita para tocar no PLAY e espera- 
se o código 0/0 no canto inferior da tela, indicando que 
o programa já passou da fita para a RAM do TK85. 


Resumindo: 


HISAVE -►RAND USR 8405: Usar bom gravador e 

fita de qualidade. 
Uma mensagem a vi¬ 
va voz ajuda locali¬ 
zações posteriores. 

HIVERIFY-^RAND USR 8539: Compara o progra¬ 
ma da fita com o 
que ainda está na 
RAM indicando se 
a gravação foi cor¬ 
reta. 

HILOAD -►RAND USR 8630: Passa o programa da 

fita para a RAM, 
apagando eventuais 
programas pré-exis- 
tentes. 

Quem já tem uma coleção de fitas gravadas para o 
TK82, CP200, ZX81, pode agora, com estas três sub- 
rotinas, preparar outra coleção para o TK85. 

Realmente, quem comprou o TK85 para ter um te¬ 
clado "mais cômodo" vai ter muitas agradáveis surpre¬ 
sas: nem sempre se compra gato por lebre. Este é um tí¬ 
pico caso em que muita gente acabou comprando lebre 
por gato. 

E isso porque ainda não falamos de outras maravilhas 
do TK85 pois queremos deixar alguma coisa para um 
próximo número de MICROHOBBY. 

Por isso não estranhe, se souber de algum turista ame¬ 
ricano que acabou contrabandeando um microcompu¬ 
tador brasileiro para os Estados Unidos. 


CURSO DE 
BASIC 


AULA 2 


sua frente, a ordem não é executada; apenas copiada na 
parte ae cima da tela da seguinte maneira: 

10O-ET R=0 


Flavio Rossini e Pierluigi Piazzi 

Até agora, só mandamos o computador executar uma 
ordem por vez; como fazer para que ele execute várias 
ordens em sequência? Para isto, é necessário NUMERAR 
as ordens (também chamadas instruções). Por exemplo, 
digite: 

10 LET R«0B 

e, a seguir, NEW LINE Pelo fato de ter um número na 


a seguir, digite: 

20 PRINT RO 

e NEW LINE, na tela você irá obter 

10 LET 0=0 
20fJPRINT O 

Notamos que apareceu um novo cursor, o cursor B 
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que indica para qual das linhas o computador está 
"olhando". Para deslocá-lo, utilize SHIFT juntamente 
com as teclas 6 ( ^ ) e 7 ( 4 )■ Suponha que você tenha 
"errado" a instrução (ou linha) 10 e quisesse fazer com 
que a variável A fosse igual a 15 e não 0. Desloque, en¬ 
tão, o cursor H para a linha 10 (usando SHIFT e a te¬ 
cla 7); para poder corrigí-la, devemos deslocar o cursor 
usando -► (ou ♦ ), mas isto só é possível, se a linha es¬ 
tiver na parte debaixo da tela. Para trazê-la a esta posi¬ 
ção, basta apertar SHIFT e a tecla I (EDIT) e você obte¬ 
rá a linha copiada na parte inferior da tela: 

1013 LET R = 0 

Desloque o cursor até depois do dígito 0, apague-o 
(usando RUBOUT), e substitua-o por 15, você obterá: 

10 LET ft=15B 

e, a seguir, NEW LINE, a linha 10 no topo da tela será 
substituída por esta NOVA linha 10. Vamos fazer voltá- 
la à original, usando agora outro método; sem trazer a 
linha para baixo, escreva uma nova linha 10 na parte 
inferior da tela: 

10 LET P=eH 

e aperte NEW LINE 
* 

Novamente, a linha 10 superior será alterada. 

Para exercitar, tente agora substituir a linha 10 por: 

10 LET R=5 

utilizando qualquer um dos dois métodos. 

Feito isto, vamos acrescentar outra instrução: 

30 PRINT 3*Fffl 

Após apertar NEW LINE, teremos então o seguinte: 

10 LET R=5 
20 PRINT R 
30»=>RINT 3*R 

Observe que, intencionalmente, não estamos utilizan¬ 
do números consecutivos para numerar as instruções. 
Isto é útil, para podermos colocar novas instruções entre 
duas já existentes, o que, não seria possível se as duas ti¬ 
vessem números consecutivos. Por exemplo, digite o se¬ 
guinte: 


25 PRXlsíT ‘'fl = "; RH 

e a seguir NEW LINE. Você observará que esta instrução 
"toma" seu devido lugar entre as linhas 20 e 30. O que 
temos agora? Vejamos, 4 instruções "numeradas"; se 
executássemos uma de cada vez, iríamos obter respecti¬ 
vamente na tela nada na primeira, pois ela apenas atribui 
o valor 5 na memória à variável A, na segunda, aparece¬ 
ria o número 5 na tela, na terceira, a letra A seguida do 
caractere = e do valor da variável A (ou seja 5) e na 
quarta, o número 15 (3*5); mas, agora, poderemos 
executá-las TODAS sequencialmente. Para isto basta 
pressionar a tecla R; como o cursor está em □ , apare¬ 
cerá a "key-word": 

RUN B 

e a seguir NEW LINE Esta instrução tem o seguinte 
efeito: faz inicialmente um CLEAR (para limpar todas 
as variáveis que eventualmente tinham sido definidas) e, 
a seguir, ordena ao computador que ele execute sequen¬ 
cialmente as ordens numeradas. Portanto na tela você irá 
obter: 

5 

R=5 

15 

e na memória teremos o número 5 associado à variável 
A. Note o efeito do ponto e vírgula (;) na instrução 25. 
Ele indica que duas coisas serão escritas "lado a lado" 
com um só PRINT 

Preste atenção: quando você numera as ordens, o 
computador NÃO as esquece. Em outras palavras, as or¬ 
dens numeradas são armazenadas em sua memória. Nes¬ 
te instante, você não as vê na tela pois ele está apenas 
mostrando os RESULTADOS das ordens. Para fazer 
com que ele mostre as ordens na tela, utilize a seguinte 
instrução: 

list B (letra K) 

e NEW LINE. O que acabamos de fazer é muito impor- 
tante e precisa estar bem claro em sua cabeça: ao orde¬ 
nar ao computador que faça uma determinada tarefa, 
sem colocar um número na frente da ordem, o compu¬ 
tador a executa IMEDIATAMENTE esquecendo a or¬ 
dem em seguida; se você numerar as ordens, elas são exe¬ 
cutadas ao receber o comando RUN e o computador 
NÃO as esquece. Elas estão em sua memória e podem 
ser vistas na tela fazendo um LIST A fase em que você 
escreve as ordens no computador é chamada de 
PROGRAMAÇÃO; ao apertar a tecla RUN, ele executa¬ 
rá as ordens do seu PROGRAMA, fase essa, que chama¬ 
mos de EXECUÇÃO. E importante não confundir as 
duas coisas. 

Vamos agora "brincar" um pouco com o nosso pro¬ 
grama; acrescente ao mesmo a instrução: 


28 MICROHOBBY 







CURSO DE BASIC 


AULA 2 


Continuação... 

10 LET R =5 

20 PRINT R 


25 PRINT "R = ' f ; R 


30 LET R=Q 


35QPRINT 3*R 

4-0 LIST 

4-0 RUN 30 

e execute este "novo programa", apertando RUN e 


NEW LINE Veja, o computador irá executar as suas 

5 

ordens, sendo que a última, diz para que ele MOSTRE 

R=5 

o programa na tela, assim você irá obter 

24- 

24- 


24- 


24- 

5 

24- 

R=5 

24- 

15 

24- 

10 LET R=5 

24- 

2© PRINT R 

24- 

25 PRINT "R=";R 

24- 

30 PRINT 3*R 

24- 

4-0 LIST 

24- 


24- 


24- 

Ou seja, no programa você ordenou que ele se mos- 

24- 

24- 

trasse no final. Substitua agora a linha 40 por: 

24- 

24- 


24- 

4-0 RUN 

P O vopi i to n Ar aa ronno í a rl a D 1 1 M n M C\A / 1 1 Kl C 

24- 

c execute o programa Tazenoo nuiM e iMtw Lirvit 


0 que você obtém? Várias vezes a mesma saída 5, A e 

Da mesma forma, a instrução LIST, mostra o progra¬ 

15. Você saberia explicar por que? Observe a sua última 

ma na tela a partir da primeira linha; experimente or¬ 

instrução: você, ao terminar o programa, ordena que ele 

denar: 

comece de novo. Dessa forma, ele irá se repetir até não 

LIST 25B 

haver mais espaço na tela. Note que a ordem de RUN 

indica ao computador que ele comece a executar o pro¬ 


grama, a partir da primeira linha. Você pode fazer com 

e NEW LINE Observe que o computador mostra o seu 

que ele execute, a partir de qualquer outra linha. Faça 

programa na tela a partir da linha 25. 

LIST e NEW LINE e, a seguir, substitua a linha 40 por: 


4-0 RUN 30 

25BPRINT 

30 LET R =8 


35 PRINT 3*R 

a seguir, digite RUN e NEW LINE 

4-0 RUN 30 

Veja o que acontece: o computador "escreve" na tela 


5, A e 15 apenas uma vez, pois RUN 30 significa "dê 

Acrescente ao seu programa agora, 2 linhas: 

um CLEAR", e execute o programa a partir da linha 


30. Ora, ao tentar executar a instrução 30 ele irá pro¬ 

22 PRINT 

curar a variável A na memória, mas não irá encontrá-la, 

2“? PRINT 

pois ela foi apagada pelo CLEAR; assim, ele pára a exe¬ 


cução do programa. Experimente então, substituir a 

de tal maneira que ele fique: 

linha 30 por: 

30 LET R=S 

10 LET R=5 


20 PRINT R 


22 PRINT 

e acrescente a linha 35 da seguinte maneira: 

25 PRINT •■« = "; R 

27 PRINT 


30 LET R=8 

35 PRINT 3*R 

35 PRINT 3*R 

4-0 RUN 30 

Execute então o programa assim modificado. Tente 

- ^ 

explicar o que ocorre. 



_ 
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e mande agora executar o seu programa (RUN e NEW 
LINE). Você irá obter uma linha em branco, entre o nú¬ 
mero 5 e a letra A, e, entre a letra A e o primeiro núme¬ 
ro 24, pois, de fato, você ordenou que ele NÃO escreves¬ 
se nada. 

Dessa forma, você conseguiu fazer com que ele 
"pulasse” linhas. 

Cabe aqui um comentário com relação à instrução 
CLEAR ela apenas limpa as VARIÁVEIS do compu¬ 
tador. De fato, experimente ordenar CLEAR (e NEW 
LINE) e, a seguir faça LIST. Você pode observar que seu 
programa ainda está lá. Se você desejar ."limpar" (apa¬ 
gar) uma linha de programa, basta colocar o número da 
linha, seguido de NEW LINE, experimente escrever 40 e 
NEW LINE. A linha 40 irá desaparecer. Se você quiser 
apagar TODO O PROGRAMA e TODAS AS VARIÁ¬ 
VEIS, basta executar o seguinte comando: 

NEW (tecla A) 

e NEW LINE. Experimente "listar" o seu programa; na¬ 
da aparecerá na tela, ele "esqueceu" tudo. . . Portanto, 
cuidado com esta instrução: ela é EXTREMAMENTE 
PERIGOSA. 

Para finalizar, vamos aprender mais um cursor: trata- 
se do cursor 0 (GRAPHICS) cujo acesso é feitò pres¬ 
sionando SHIFT e a tecla 9. Observe, por exemplo, a te¬ 
cla T: 



Se o cursor estiver em G3 , ao pressioná-la, você 
obtém RAND na tela; com o cursor H , você terá T, ou 
<> se pressionar simultaneamente o SHIFT; com o 
cursor em Q , você obtém RN D; agora, com o cursor 
em 0 ao pressioná-la, você terá a letra T em vídeo re¬ 
verso, ou, o desenho B , se pressionar simultanea¬ 
mente o SHIFT. Façamos então o seguinte programa: 


10 PRINT 
20 RUN 

Note que, após abrir as aspas, devemos colocar o cur¬ 
sor em m e, simultaneamente com SHIFT, apertar as 
teclas T, H, 7, F e 8. Para fechar as aspas, devemos pas¬ 
sar novamente o cursor para D ; para isto, basta fazer 
SHIFT e a tecla 9 (GRAPHICS). Execute então o pro¬ 
grama. A seguir, modifique a linha 10 acrescentando um 
(;) no final: 


10 PRXNT "fwnt"; 
20 RUN 


Execute o programa e perceba o efeito "ESTRA¬ 
NHO" do (;) ou seja: faça com que o próximo PRINT 
escreva "ao lado" e não na linha debaixo. Mais adiante 
veremos alguns detalhes a respeito do (;). 



Exercício: 

1) Faça um programa que associe à variável HOPE o nú¬ 
mero 6 (na memória) usando a instrução LET e, a se¬ 
guir, escreva na tela o seguinte. 

HOPE = 6 
HOPE +2=8 
3+HOPE = 18 
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2) "Apague" o programa anterior (NEW) e, a seguir, faça 
a seguinte instrução (não numerada): LET B = 10 
(NEW LINE) Escreva então este programa: 


100f*_ET R = 5 
200 PRINT R 
300 PRINT B 


5+7 

= 

12 

5 + 7 


12 

5+-? 


12 

5+7 

= 

12 

5+7 

= 

12 

5+7 


12 

5+7 

= 

12 

5+7 

= 

12 

5+7 

— 

12 

5+7 

=2 

12 

5+7 

=r 

12 

5+7 

= 

12 

5+7 


12 

5+7 

= 

12 

5+7 


12 

5+7 


12 


Note o que aparece na tela ao tentar executá-lo. Ex¬ 
plique o que ocorre e a seguir acrescente a linha 150: 
150 CLEAR; tente então, executar o programa e expli¬ 
car o que acontece. Substitua então a linha 150 por: 
150 LET B = 7 e execute o programa. Finalmente, 
acrescente a linha 400: 400 NEW 

Execute o programa e tente listá-lo em seguida. Expli¬ 
que o que ocorre, m 


até o fim da tela. 
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AULA 1 


Flavio Rossini 

Para que possamos entender o que é a linguagem de 
máquina, são necessários alguns conceitos básicos funda¬ 
mentais: 

a) números binários e hexadecimais 

b) bit e byte 

Além deles, para utilizar o ASSEMBLY com o TK, é 
preciso um bom conhecimento do ''funcionamento" da 
key-word POKE e da função PEEK 

0 objetivo desta primeira aula é 'portanto' abordar es¬ 
tes tópicos e apresentar alguns exercícios cuja resposta 
será publicada no próximo número. 




"Números binários e hexadecimais" 

A maneira pela qual nós estamos acostumados a re¬ 
presentar os números, usa dez símbolos diferentes (a sa¬ 
ber: 0, 1, 2, 3, 4, 5, 6, 7, 8 e 9) chamados algarismos, 
sendo que cada algarismo tem "peso" tanto maior quan¬ 
to mais a esquerda ele estiver na representação do nú¬ 
mero. A relação entre o "peso" de algarismos adjacentes 
é sempre 10 ; assim, por exemplo 

posição 

1983 = 1 X 10 3 + 9 X 10 2 = 8 X 10 1 + 3 X 10® 

algarismos 

posição: 3 I 2 I 1 I 0 
peso: 10 3 I 10 2 I 10 1 I 10® 
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Por estas razões, dizemos que os números estão repre¬ 
sentados na base 10. Diz a história que isso se deve ao 
fato do ser humano ter 10 dedos nas mãos . . . 

Obviamente, qualquer base poderia ter sido escolhida 
e quaisquer símbolos poderiam ter sido adotados; imagi¬ 
ne, por exemplo, um marciano com 8 dedos em cada 
mão ... ou um venusiano com um dedo apenas em cada 
mão . . Apesar dos computadores não serem feitos em 
Marte ou Vénus, é conveniente representar os números 
na base 2 (números binários) e na base 16 (números he¬ 
xadecimais) quando pensamos em trabalhar em lingua¬ 
gem de máquina, por razões que veremos mais adiante; 
assim, na base 2 necessitamos 2 símbolos para represen¬ 
tar os números e na base 16 são necessários 16 (vide ta¬ 
bela 1.1) a relação entre o peso de 2 algarismos adjacen¬ 
tes será respectivamente 2 e 16 

Tabela 1.1 — Símbolos usados para representar números 
binários (base 2), decimais (base 10) e hexadecimais (ba¬ 
se 16), e utilização dos símbolos da base 2 e base 10 pa¬ 
ra representar os símbolos da base 16. 


Note que na base 16 somos obrigados a utilizar letras 
para os últimos 6 símbolos, pois nós seres humanos 
temos apenas 10 símbolos numéricos (0, 1, ... , 9). As¬ 
sim, nos números hexadecimais, as letras A, B, C, D, E e 
F representam com um único símbolo os números 10, 
11, 12, 13, 14 e 15 da base 10. 

Obs.: para evitar confusão, colocaremos os números en¬ 
tre parênteses com a base utilizada em baixo à direita: 

(número)base 

Por exemplo, vamos escrever 2 números na base 2 (ou 
B) e 2 números na base 16 (ou H) e sua respectiva repre¬ 
sentação na base 10 (ou D): 

( 1101)2 = 1 x 2 3 + 1 x 2 2 +0 x 2 1 +1x2' = (13)io 

posição: 3/2/1/0 

peso: 2 3 /2 2 /2'/2' 

(1000 1010) B = 1 x 2 7 + 0 x 2 6 + 0 x 2 5 

+ 0 x 2 4 + 1 x 2 3 + 0 x 2 2 
+ 1x2' +0x2* = (138 ) d 

posição: 7/6/5/4/3/2/1/0 

peso: 2 7 /2‘ /2 5 /2 4 /2 3 /2 2 /2 1 /2 a 


BASE 

2 ou B 

10 ou D 

16 ou H 

0 

0 

0 

1 

1 

1 

ia 

2 

2 

11 

3 

3 

100 

4 

4 

101 

5 

5 

no 

6 

6 

111 

7 

7 

1000 

8 

8 

1001 

9 

9 

1010 

10 

A 

i0ii 

11 

B 

1100 

12 

C 

1101 

13 

D 

1110 

14 

E 

1111 

15 

F 


(132) i6 = 1 x 16 2 + 3x 16' +2x16' = (306) 10 

posição: 2/1/0 

peso: 16 2 /16' /16* 

(A7) h = 10 x 16 1 + 7x 16' = (167) d 
(A) 

posição: 1 /0 
peso: 16‘/16* 

Note que no último exemplo o símbolo A foi substi¬ 
tuído pelo número 10 para que pudéssemos fazer a con¬ 
ta de modo "convencional" e obter o número (A7)h na 
base 10 0 mesmo ocorre para B, C, D, E e F que foram 
usados na base 16 para poder representar com um único 
símbolo os números de 10 a 15 que são representados 
com dois símbolos na base 10 

Assim, vimos como "passar" números representados 
na base 2 e na base 16 para a base 10. Para passar da ba¬ 
se 2 para a 16 ou vice-versa o procedimento é bem sim¬ 
ples pois 16 = 2 4 

Desse modo, dado um número na base 2, para obter 
sua representação em hexadecimal, basta agrupar os al¬ 
garismos em grupos de 4 a partir da direita e substituí- 
los pelo correspondente algarismo na base 16. Você sa¬ 
beria explicar por que? 
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W00100n01J00) B = (5 2 6 Oh 
5 2 6 C 


inmijimnii 2 = (3D7 fi 16 
3 D 


Obs.: veja a tabela 1.1. 

Vice-versa, dado um número na base 16, para obter 
sua representação em binário, basta substituir cada alga¬ 
rismo pela sua correspondente representação em base 2. 
Note que são sempre necessários 4 algarismos da base 2 
para cada símbolo da base 16 sendo que os "espaços"de- 
vem ser preenchidos com zeros à esquerda: 

(3BF), e = UJ_1 )2 

3 B F 

(A482) h = (10100100 1000 0010)b 
A 4 8 2 

Para completar o "ciclo" das transformações de bases, 
resta apenas aprender a passar números da base 10 para 
as bases 2 e 16. Via de regra, o seguinte algoritmo pode 
ser utilizado para passar números na base 10 para qual¬ 
quer base X: (tente explicar por que). 

a) divida o número dado por X, anote o resto e o resul¬ 
tado 

b) divida o resultado por X e anote o resto e o novo re¬ 
sultado 

c) repita a operação (b) até o resultado obtido ser zero 
(obviamente se o resultado do passo (a) for zero não são 
necessários os passos (b) e (c) ). 

d) copie os "restos" sequencialmente começando pelo 
último. 

Exemplo: 

Vamos passar alguns números na base 10 para a base 2: 

(35), a = (?> 2 

35 [2_ 

1 17 [2 

1 


(35) i o = (100011)2 



(92) d = (?) B 
92 12 
0 



2 |2 


0 1 

li_ 

\ 1 

0 


0 (92)d = (101 1100) B 


e da base 10 para a base 16: 

(88), o = (?)i6 

88 |16 

8 5 |16 

5 0 

(88),o = (58) 16 

(21 6>d = (?)h 

216 [16_ 

56 13 |16 

8 13 0 

(216) d = (D 8 ) h 


(Lembre-se que (13)ig = (D) 10 : veja tabela 1.1) 

Obs.: Note a conveniência de se agrupar os algarismos 
dos números binários de 4 em 4 para facilitar a com¬ 
preensão, assim como fazemos para os números decimais 
(de 3 em 3). 


Exercícios: 

1) Efetue as seguintes conversões: 

a) (10 1101 ) B = (?> D 

b) (1010 ),q = (?) 16 

c) <A2 F) h = (?> B 

d) (380)i6 = (?),„ 

e ) (101 0010 1011 ) 2 = (?) 1 6 

f) (111 0110)2 = (?)io 

g) (A10F)„ = (?) n 

h) (10 1110 0110 1100) B = (?) H 

i) (ACF2),6 = <?> 2 

j) (127),„= (?) 2 

k) (999 ) d = (?)h 

l) <110) D = <?>b 


Sugestão para uma tarde de verão: Algum tempo atrás 
era bastante usada também a base 8 (números octais); 
tente imaginar números representados nesta base e como 
transformá-los para as bases que aprendemos hoje e vice- 
versa (note que 8 = 2 3 ); a seguir faça o mesmo para uma 
base que não seja potência de 2 (ex. 5). 
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Continuação... 


Sugestão para 5 tardes de verão: Experimente imaginar 
números na base 12 e fazer contas com eles: soma, sub¬ 
tração, multiplicação, divisão . . . Verifique que certas 
contas de divisão que dão dízima na base 10 não dão dí¬ 
zima na base 12; ex.: 4/3 = 1,333 . . . (base 10). 

4/3= 1,4 (base 12) 


"Bit/Byte: circuitos eletrônicos de dois estados" 

A evolução da eletrônica tornou possível a elabora¬ 
ção de circuitos extremamente pequenos capazes de as¬ 
sumir 2 estados estáveis, sinalizados pela presença ou 
não de tensão elétrica; para efeito de representação, es¬ 
tes estados são simbolizados respectivamente por 1 e 0 . 
razão pela qual torna-se necessário representar os núme¬ 
ros na base 2 se quisermos interpretar como números os 
estados dos circuitos. Os computadores são constituídos 
em sua grande parte por "milhares" destes circuitos inte¬ 
ligentemente ligados. 

Na linguagem "usual", cada algarismo 0 ou 1 é cha¬ 
mado de "bit" e a um conjunto de 8 bits chamamos 
"byte". Os números hexadecimais foram introduzidos 
para facilitar a escrita e compreensão de números biná¬ 
rios, substituindo longas cadeias de zeros e uns, pelos 
correspondentes símbolos hexadecimais, reduzindo as¬ 
sim, 4 vezes seu tamanho e facilitando o entendimento 
do ponto de vista humano 

Assim, se tivermos 8 circuitos iguais ao mencionado 
anteriormente, poderemos representar 256 números 
(2 8 ) correspondendo a todas as combinações possíveis 


de zeros e uns: 



"0000 0000" 

0 

'0' 

"0000 0001" 

1 

T 

"0000 0010" 

2 

'2' 

"0000 0011" 

3 

'3' 

"1111 1100" 

252 

'FC' 

"1111 1101" 

253 

'FD' 

"1111 1110" 

254 

‘FE' 

"1111 1111" 

255 

'FF' 

(binários) 

(decimais) 

(hexadec 


Assim, utilizando 1 byte (8 bits) podemos representar 
os números inteiros positivos de 0 a 255 . . . 

Se usássemos 16 bits (ou seja 2 bytes), poderíamos re¬ 
presentar 2 16 números a saber de 0 a 65535. Esta regra 
é análoga à base dez; de fato, com 2 algarismos podere¬ 
mos representar 10 2 números (0 a 99). 


Note que introduzimos aqui uma nova simbologia pa¬ 
ra diferenciar as bases nas quais estão representados os 
números: os binários entre aspas ("), os hexadecimais 
entre apóstrofos O e os decimais sem "nada"; esta sim¬ 
bologia é a que será adotada para todas as outras aulas. 

Como veremos no decorrer do curso, serão muito in¬ 
teressantes para nós os números de 1 byte (8 bits) e 2 
bytes (16 bits). Assim como nos números decimais onde 
existe o conceito de "algarismo mais significativo". 

Por exemplo o número hexadecimal: 

1 byte 1 byte 


'1A2C' = "0001 1010 0010 1100" 

1 A 2 C 

tem como byte mais significativo '1 A' e como byte me¬ 
nos significativo '2C\ Este número poderia ser assim re¬ 
presentado em decimal: 

'1A2C' = 1 x 16 3 + 10 x 16 2 + 2 x 16 1 + 12 x 16 a = 6700 
(A) (C) 

Poderíamos porém, calculá-lo de outra forma: 

byte mais significativo: '1 A' = 1 x 16 1 +10 x 16® = 26 
byte menos significativo: '2C' = 2x 16 1 + 12 x 16® = 44 

e calcular: 


(byte mais significativo) x 256 1 +(byte menos 
significativo) x 256® = 26 x 256 1 + 44 x 256® = 6700 

Como se estivéssemos utilizando uma base "fictícia" 
de 256 (= 16 2 ). Para entender melhor, suponha por 
exemplo o número 1024 em decimal, ele equivale a: 

1 x 10 3 + 0 x 10 2 + 2 x 10 1 + 4 x 10® 

Se "dividirmos" o número ao meio [ 10 24] podere¬ 
mos usar uma base fictícia de 10 2 = 100; de fato: 

10 x 100 1 + 24 x 100® = 1024. 

Não se trata de coincidência. E lógica . . . 

Medite um pouco sobre estes conceitos. Eles serão 
úteis e necessários para entender a linguagem de máqui¬ 
na. . . 

Para facilitar as coisas, apresentamos aqui uma tabela 
dos primeiros 256 números hexadecimais e decimais pa¬ 
ra conversão, ou seja, todos os números possíveis de se¬ 
rem representados com 1 byte e que, portanto, têm dois 
dígitos hexadecimais. ^ 
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CHEGA 

DE 

PROBLEMAS 

Use Tig Loader ( 




TIG-LOADER possibilita: 

•a localização do ótimo volume do gravador, através de 2 LEDs indicadores, facilitando a operação LOAD. 

•DUPLICAR qualquer programa, usando outro gravador, conseguindo duplicações perfeitas. 

•carregar (LOAD) e DUPLICAR simultaneamente. 

•gravar (SAVE) em 2 gravadores ao mesmo tempo. 

•monitorar as operações LOAD, SAVE ou DUPLICAÇÃO através de fone, sem manipular fios, plugs ou o controle de volume, 
•filtrar as interferências elétricas de baixa frequência, que são a causa da maioria dos problemas de LOAD/SAVE. 


TIG-LOADER é pequeno (8 x 5 x 2,5cm) e não requer modificações no microcomputador, nem bloqueia a expansão de memória, 
porque é ligado entre as tomadas gravador/microcomputador. 



Para adquirir, envie o cupom abaixo, completamente 
preenchido, mais um cheque nominal, pagável 
em São Paulo, e você receberá o seu TIG- 
LOADER pelo Correio. 

TIGRE COM.DE EQUIP.P/COMPUTADORES LTDA. 
Rua Correia Galvffo , 224 
CEP 01547 Sío Paulo-SP 


ATENDEMOS SOMENTE POR CARTA 


v___ 


Seja Cliente Preferencial* envie o cupom preenchido e você receberá desconto em todos os nossos 
produtos (a relação dos futuros lançamentos é enorme ! ). 


□ sim, desejo receber_aparelhos TIG-LOADER, para o que estou anexando o cheque n2_ 4 no valor de 

CRí_ 

n Quero ser CLIENTE PREFERENCIAL e receber descontos nas minhas futuras compras. 

NOME_ 

ENDEREÇO_ 

CEP _CIDADE 

PROFISSÃO_ 

MICROCOMPUTADOR_ 


ESTADO_ 

DATA NASC. / _ L 


Prazo de entrega: 15 dias. - DESPESAS POSTAIS POR CONTA DO COMPRADOR 
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Continuação... 


Tabela 1.2 



0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

1 

B 

C 

-1 

D 

E 

F 

0 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

1 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

2 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

3 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

— 

60 

1- 

61 

62 

63 

4 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 | 

78 

79 

5 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 ! 

92 

93 

94 

95 

6 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

7 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

8 

128 

129 

130 

131 

132 

133 

1 34 

135 

136 

137 

138 

139 

140 

141 

142 

- 

9 

144 

145 

146 

147 

148 

149 

1150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

A 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 i 

173 

174 

i 175 

B 

176 

177 

178 

179 

180 

181 

1182 

183 

184 

185 

186 

187 

188 

189 

(. _ 

190 

191 

C 

192 

193 

194 

195 

196 

197 

198 

199 

200 

_ 

201 

202 

203 

204 

205 

206 

207 

D 

208 

209 

210 

211 

1212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

E 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

F 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 


escreve na tela o que está na memória 30000. Lembre- 
se, os endereços só vão de 0 a 65535 e o número máxi¬ 
mo que cabe em uma memória é 255. Assim, para colo¬ 
car na memória um número maior que 255 deveremos 
"quebrá-lo" em várias partes usando a base 256 (16 2 ), 
pois ele não cabe em apenas uma posição. Se ele for me¬ 
nor do que 65536 (256 2 ) devemos "quebrá-lo" em 
dois; se o número for maior que 65536 e menor do que 
16777216 (256 3 ), deveremos quebrá-lo em 3 e assim 
por diante. 


Suponha, por exemplo, que você queira colocar o nú¬ 
mero 522 nas memórias 30000 e 30001; ora, 522 = 


= '020A' 


' 02 ' = 2 
'0A' = 10 


Vamos colocar o byte menos significativo na memória 

de menor endereço: 


POKE 30000,10 
POKE 30001,2 


Para obtê-lo de volta, basta fazer: 


Assim, por exemplo, linha 5, coluna A, teremos: 

'5A' = 90 (de fato 5 x 16 1 +10 x 16° = 90) 

Vice-versa, 247 corresponde a linha F, coluna 7, ou 
seja: 

247 = 'F7' 

"O que é POKE? OqueéPEEK?" 

Como veremos, a memória do TK pode, com expan¬ 
são de 64K, ter 65536 "casinhas" (posições) numeradas 
de 0 a 65535, cada uma capaz de armazenar 1 byte, ou 
seja, um número compreendido entre 0 e 255 ('00' e 
'FF'); a instrução POKE coloca um número (de 0 a 
255) na memória desejada; por exemplo: 


PRINT PEEK 30000 + 256 x PEEK 30001 


Experimente agora colocar na memória o número 
32477 e obtê-lo de volta (use os mesmos endereços). 

Faça o mesmo para o número 65535. . . E, se você es¬ 
tiver inspirado, tente colocar os números 100.000 e 
20.000.000 na memória. 


POKE 30000. 135 

coloca o número 135 na memória 30000. A função 
PEEK nos "conta” qual o número que está em dada me¬ 
mória; por exemplo: 

PRINT PEEK 30000 
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QUEBRA- 

CABECA 

VERDADEIRO 
OU 

FALSO? 


MENSA 

International 



A partir deste número, inauguramos a seguinte siste¬ 
mática para resposta do quebra-cabeça: ele será respon¬ 
dido sempre no segundo número após sua publicação. 
Isto significa que o quebra-cabeça proposto no número 
1 terá sua resposta publicada no número 3. Este que es¬ 
tamos propondo agora no número 2, será respondido 
no número 4 e assim sucessivamente. Neste número 2 
começamos também a contar com a colaboração dos 
membros da MENSA residentes no BRASIL. 

O quebra-cabeça que vamos propor agora é de autoria 
de JimGeschwender e foi publicado na seção GAMES da 
revista americana OMNI no mês de maio de 1983 (res¬ 
posta na página 148). Neste momento alguns leitores se 
perguntarão: "Mas, qual é a graça? 

Basta achar esta revista e procurar a resposta!" Pois é 
nesse ponto que eles vão ficar surpresos: o quebra-cabe¬ 
ça deste mês não consiste em achar a resposta. Vamos 
então ao quebra-cabeça e depois dizemos o que preten¬ 
demos: 

A lista a seguir contém 10 asserções que podem ser 
verdadeiras (V) ou falsas (F). 

Assinale V ou F em todas elas de maneira que suas 
respostas satisfaçam simultaneamente todos os itens 
da lista sem contradições: 

1. ( ) A quarta asserção falsa tem numeração ímpar. 

2. ( ) Há mais asserções falsas entre as primeiras seis 

(de 1 a 6) que entre as últimas 7 (de 4 a 10). 

3. ( ) Existem pelo menos 5 asserções falsas. 

4. ( ) Existem três asserções verdadeiras consecutivas. 

5. ( ) Existem pelo menos tantas asserções verdadei¬ 

ras com numeração par, quantas asserções fal¬ 
sas com numeração ímpar. 

6. ( ) As asserções 7 e 10 são, ou ambas falsas, ou 

ambas verdadeiras. 


7. ( ) Das três últimas asserções com numeração par 

(6, 8 e 10) apenas uma é verdadeira. 

8. ( ) As asserções 6 e 9 podem ser verdadeiras so¬ 

mente se a asserção 10 for falsa. 

9. ( ) A asserção 7 e a primeira asserção verdadeira 

com numeração par são precedidas imediata¬ 
mente por asserções verdadeiras. 

10. ( ) A asserção 9 é falsa. 

Agora você vai quebrar a cabeça tentando achar a res¬ 
posta ou, se for preguiçoso, vai procurá-la na revista OMNI. 

Mas, o que queremos realmente que você façaé "bo¬ 
lar" um programa em BASIC — TK que faça seu compu¬ 
tador achar a resposta. 

Lembre-se de que existem no BASIC funções e instru¬ 
ções extremamente poderosas do ponto de vista lógico: 


05 

LINGUAGEM 

DE MÁQUINA 

NÍVEL 0 

CRIANÇAS 

10h 

INICIAÇÃO 

NÍVEL 1 

ADULTOS E 
ADOLESCENTES 

20h 

INICIAÇÃO 

NÍVEL 2A 

ADULTOS E 
ADOLESCENTES 

20h 

APROF. EM APLICAÇÕES 
ADMINISTRATIVAS 

NÍVEL 2B 

ADOLESCENTES 

JOGOS 

20h 

APLICAÇÕES EM 

JOGOS 

NÍVEL 3 

ADULTOS E 
ADOLESCENTES 

40h 

LINGUAGEM DE MÁQUINA 
ASSEM BLY Z80 

NÍVEL 4 

ADULTOS E 
ADOLESCENTES 

40h 

APROF. DE LINGUAGEM 

DE MAQUINA 

Núcleo 

/áei orientaçáo 

1 wClO )(?5^UCl05 Informações e inscrições: 

V V y Av. Brio. Faria Lima, 1.451 - 3.° - Cj. 31 

^J—^ Tel.: 813-4555 - CEP 01451 • São Paulo-SP 
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Continuação... 

IF THEN 

OR 

AND 

NOT 

Além disso, seu TK tem a seguinte capacidade: qual¬ 
quer asserção entre parênteses, se for verdadeira a ela 
atribuímos o valor 1, se for falsa 0. Experimente digitar: 

PRINT (2= 2) 

e 

PRINT (47 > 51) 

e veja o que seu TK responde em cada caso. 

Agora, mãos à obra e envie-nos o programa (veja se¬ 
ção "Como colaborar com MICROHOBBY") a tempo, 
para que possamos eventualmente publicá-lo no número 
4. Boa sorte e bom divertimento. 


COMO 

COLABORAR 

COM 

MICROHOBBY 

A revista MICROHOBBY foi criada para servir de in¬ 
tercâmbio entre os leitores que participam do mágico 
mundo da computação. 

A característica realmente inovadora do computador 
pessoal, está em transformar cada consumidor num cria¬ 
dor. Aproveite sua criatividade e envie suas colabora¬ 
ções, recebendo remuneração a título de DIREITO 
AUTORAL. 

Se o material enviado for aprovado para publicação, 
a remuneração será de CrS 10.000,00 por programa. Se 
o programa for muito bom e muito extenso esta quantia 
será aumentada, a critério da redação, até CrS 30.000,00. 
Esta remuneração será oferecida também para artigos 
interessantes sobre o mundo do TK. 

A maneira ideal de nos enviar o material a ser publi¬ 
cado obedece às seguintes normas: 
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LANÇAMENTO 


LIVRO: APLICAÇÕES SÉRIAS PARA TK82-C 

No momento em que estávamos fechando esta edição, 
chegou às nossas mãos um exemplar do livro 

APLICAÇÕES SÉRIAS PARA TK82-C E CP200 de 
autoria de DELIO SANTOS LIMA. 

Não tivei íos, portanto, tempo material para fazer 
uma análise detalhada, mas, numa rápida leitura pude¬ 
mos perceber que este livro contém programas muito in¬ 
teressantes e algumas "dicas" realmente muito úteis para 
os usuários dos computadores que usam BASIC-TK 
Faremos futuramente uma análise crítica mais pro¬ 
funda, assim como de todos os livros referentes ao TK 
que nos forem enviados para resenha, mas por enquanto 
queremos nos congratular com o DELIO por mais esta 
iniciativa pioneira e bem brasileira. 


1 ) Nunca esquecer de colocar nome completo, endereço 
e número de sua assinatura em todo material enviado (fi¬ 
tas, listagens de impressora, envelope, carta, etc). 

2) Enviar a listagem de programa datilografada ou, me¬ 
lhor ainda, tirada na impressora do TK. 

3) Colocar sempre uma linha REM com o nome do autor 
e o título do programa. 

4) Enviar uma fita com o programa gravado algumas ve¬ 
zes (se possível em gravadores diferentes). 

5) Na fita, gravar com microfone (em viva voz), algumas 
instruções úteis, nome completo e endereço do reme¬ 
tente. 

O material não utilizado não será devolvido. Esta é 
uma norma corrente em quase todas as revistas do mun¬ 
do, que gera porém, uma certa desconfiança: "e se apa¬ 
garem meu nome do programa e o publicarem sem me 
remunerar?" 

Neste ponto podemos sugerir o seguinte: 

Ao enviar o material para qualquer revista, você, ou 
confia em sua seriedade, ou, é melhor não enviar o ma¬ 
terial, reservando-o para uma publicação digna de seu 
crédito. 

Uma outra saída é a de tirar uma cópia de todo ma¬ 
terial enviado e registrá-lo em cartório, para qualquer 
reclamação posterior. Obviamente tal procedimento só é 
aconselhável se o material enviado for valioso a ponto de 
justificar toda essa mão-de-obra. 



















COMO COLABORAR 
COM MICROHOBBY 


Cx. POSTAL: 60081 

CEP: 05096 - S. PAULO - SP 

7) Qualquer dúvida, poderá ser esclarecida pelo telefone: 
(011) 257-5767 


Continuação... 

6) 0 material deve ser enviado para: 


Aguardamos sua colaboração. 




MICROMEGA P.M.D. Ltda. 
PROGRAMAS DO LEITOR 



PEQUENOS 

ANÚNCIOS 


Envie seu pequeno anúncio de poucas Unhas e ele será 
publicado gratuitamente pela M/CROHOBBY. 


• Vendo expansão de 16K para NEZ8000, nenhum 
uso, baratíssima - José Luis - S. Paulo — Fone: 
274-5995. 


Gostaria de entrar em contato com rádio amadores 
que utilizem micros do tipo Sinclair para decodificar 
CW e RTTY. Aos interessados entrar em contato com 
Renato Strauss, R. Cardoso de Almeida, 654 — ap. 32 
— CEP 05013 — São Paulo — SP. Para trocas de idéias 
e experiências. 


* SINCLAIR CLUB, para usuários do ZX81 -NEZ8000 
— TK82-C — CP200 — TK85 — Envie uma carta com 
dados pessoais e um programa: Rua Bandeira Paulista, 
147/162 - Itaim Bibi - São Paulo - CEP 04532. 

* Troca de idéias e programas para TK — Robson Go¬ 
mes Vilela — Rua dos Navegantes, 1017/202 — Boa 
Viagem — Recife - PE - CEP 50000. 

* Vendo programas em fita-cassete 2K e 16K para 
TK82 - Carlos Sciarretti — Caixa Postal 5567 — São 
Paulo-CEP 01051. 



Xadrez 

Divulgação e 
Empreendimentos Ltda. 


TUDO PARA A PRÁTICA 
- DO REI DOS JOGOS - 


Xadrez Eletrônico 
Tabuleiros e peças 
Mesas e relógios 
Livros e revistas 
Aulas e Simultâneas 
Organização de Torneios 

Av. Brlg. 0 Faria Lima, 1644 • abl. 61 • 01462 ■ Sio Paulo • SP 
Fonas: (011) 814-9340 • 814-9539 


* Vendo programas em fita K-7 para os micros TK-82, 
NZ-8000, CP-200 e ZX-81. Aos interessados escrever 
para Renato Strauss, R. Cardoso de Almeida, 654 — 
ap. 32 — CEP 05013 — São Paulo — SP. 


a 


* Curso de linguagem de máquina para TK82 e TK85 
(Assembly Z80). Aos sábados das 9:00 às 13:00 hs. 
— São Paulo — Fone: 813-4555 (Márcia) à tarde. 
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COMO FAZER 
SUA 

ASSINATURA 



A nossa revista não será distribuída nas bancas. 

Para obter seu exemplar mensal, contendo muitos 
programas para o seu TK, muitas dicas e prêmios 
interessantíssimos, você deverá fazer uma assinatura 
o preço anual da assinatura é de Cr$ 11 800,00. 

Porém, até 30 de setembro, manteremos o preço de 
Cr$ 9.900,00, com direito à escolha de um desses dois 
brindes: 

Fita com jogos (Pulga — 2K e Simulador de Vôo — 
16 K) no valor de Cr$ 6.900,00. 

TWIN-GO (Desgravador e rejuvenescedor 
instantâneo de fitas cassete) no valor de 
CrS 7.800,00 

Para tanto, você deverá preencher corretamente 
o cupom anexo (não esquecendo de assinalar o brinde 
de sua escolha), e colocá-lo num envelope, junto a um 
cheque nominal ou vale postal a favor de MICROMEGA 
PUBLICAÇÕES E MATERIAL DIDÁTICO LTDA., no 
valor de Cr$ 9,900,00 (oferta válida até 30 de 
setembro). 

O envelope deverá ser selado e endereçado à 

MICROMEGA P.M.D. LTDA. 

Caixa Postal 60081 - CEP 05096 
São Paulo - SP 


OLHE SÓ O QUE ESTÁ RESERVADO 



PROGRAMAS DO LEITOR: 

Muitos programas interessantíssimos bolados ou 
adaptados por nossos leitores, inclusive aplicativos sérios. 

PROGRAMAS DO MÊS: 

Um gigantesco programa de arquivo. 

O programa "LIFE" em linguagem de máquina. 

DICAS: 

Aritmética financeira. 

Como preparar uma linha REM para código de máquina 
Como encher a tela instantaneamente. 

CURSOS: I 

Continuação do Curso Basic TK e do Assembly Z80do 
TK. 

PEQUENOS ANÚNCIOS: 

Para esta seção você poderá enviar um pequeno anúncio 
para publicação gratuita. 

FITA DO MÉS: 

As instruções e as dicas do Simulador de Vôo. 
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PREPARE-SE PARA O 





No NÚCLEO você pode se inscrever escolhendo as matérias, dependendo de suas reais necessidades, 
aproveitando ao máximo seu tempo. 

Se o seu problema é MATEMÁTICA, FÍSICA, QUÍMICA, BIOLOGIA, GRAMÁTICA, REDAÇÃO, FRANCÊS, 
ETC., temos os melhores professores dos melhores cursinhos de São Paulo, para lhe dar um 
atendimento INDIVIDUALIZADO. 



Informações e inscrições 
para turmas de /Y^ á 




Núcleo 

'ciei orientação 
/de jestudos 


Av. Brig. Faria Lima, 1451 • 3.° - Cj. 31 
Tel.: 813-4555 • CEP 01451 - São Paulo - SP 
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Desgravador e rejuvenescedor instantâneo 



de fitas K-7 


Sistema: PASSOU... DESGRAVOU 
GARANTIA DE 5 ANOS 


PARA 
APAGAR 
BASTA PASSAR 
A FITA IDA E 
VOLTA PELA 
ABERTURA 


mieromega 


T win Ho" 

# Desgrava e rejuvenesce em apenas 4 segundos, qual¬ 
quer fita cassete independente de sua duração, eliminan¬ 
do todos os ruídos e chiados decorrentes de frequentes 
regravações. 

# Poupa o desgaste da fita e do gravador. 

# Poupa tempo e melhora a qualidade do som da fita casse¬ 
te na reutilização da mesma. 

# Gravando em cima de outra gravação, a qualidade da re¬ 
produção é consideravelmente prejudicada, além de criar 
confusões, prmcipalmente se a gravação anterior for de 
duração mair curta. Desgravando com o TWIN-GO, nada 
disso acontece. 

# O TWIN-GO é indispensável a todos os profissionais e 
amadores, usuários de fitas cassete. 

Pedidos por corta à 

MICROMEGA PMD LTDA. 

Caixa Postal 60081 - CEP 08096 - São Paulo-SP 

anexondo Cheque Nominal ou Vale Postal, 

incluindo mais despesas de frete no valor 

de Cr$ 500.00, autorizando o recebimento 

do compra no prazo de 15 dias. 
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Programas para o seu 
TK82-C e TK85 


JOGO DE GAMÀO 
16K 

tste programa apir senta O tabuleiro no 
video e uiiii/j o eficiente codigo de ma 
quina permitindo 4 tquatrol níveis de 
dificuldades de jogo 


MONSTRO DAS TREVAS 
TRIDIMENSIONAL 16K 

Impressionante jogo onde você deve 
evitar o monstro das trevas Tudo em 3 
dimensões 


DEMOLIDOR 

2K 

Jogo animado tipo "flipeiama O joga 
dor devera demolir uma parede com 
uma bola que se encontra sempre em 
movimento 


INVASORES DO 
ESPAÇO 16K 

Consiste de uma trota de naves inveso 
tas entruterienas. descendo no planeta 
Teira Sua mlssao e destruir as naves 
invasoras dispondo da arma de ralos la 


RALLY 

16K 

Emocionante corrida de rally em um la 
birlnto, onde poderão ser testados sua 
habilidade e seus retlmos Paia conse 
gulr seu Intento você devera evitai cai 
ros ataque o obstáculos em seu fraieto 


MATEMATICA I 
16K/64K 

Analise giafica de funçòes matematl 
cas lesoluçau de sistemas de oqua 
çoes lineares iU»h SI equaçoes^64h 9S 
oquaçoesl, e Calculo de integiais deli 
mdos _ 


TKALC 

16K/64K 

Piograma desenvolvido para cálculos 
numérico* em planilha O usuano defi¬ 
ne as colunas as linhas e as formula* 
aplicada'. Simítai ao lamoso Visitar 
Um grande veisatilrdada, este programa 
peimiie a tormulaçAo de cálculos cien¬ 
tíficos e comerciais analise de tabelas 
numéricas » oulias aplicações 


Jogo animado onde deveiao ser apaga 
dos todos os pontinhos espalhados em 
urn labirinto (o piograma contém is ti 
por< de labirinto). Voce seia impedido a 
quatquei costo por 4 anttaterrenor. 
guardiaes do labirinto, que poderão ser 
combatidos com caigas de raios laser 


TKADREZ II 
16K 

t ste jogo apresenta o labuleiio r as 
‘44ÍIKI vuteo Peimite a escolha de 
* olVeradr dificuldade O programa 
nece a f)H*|q».er momento a listai 
dos 'ances at»*Uiado*. e armâfena 
fita a posição da . peças i le poder. 
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